DSKSRB 
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(•••COPYRIGHT 1969, DIGITAL EQUIPMENT CORP.. MAYNARD, MASS.»»» 

ITHIS SUB-PROGRAM ASSEMBLED WITH SYSTEM PARAMETER FILE - S.MAC(V4l4) 
XLIST 

ITHIS SUB-PROGRAM ASSEMBLED MITH CONFIGURATION DEPENDENT FEATURE SW1TCHE=; - FT50SB,MAC( 
V003) 

XLIST 

LIST 
IFN FTRA10. < 

TITLE DSKSER -- DEV 1 CE- I NDEPENDENT DISK SERVICE ROUTINES, 
> 
IFE FTRA10. < 

TITLE DSKSRB - ALMOST DEVICE INDEPENDENT DISK SERVICE ROUTINES (BURROUGHS) 
>> 

TITLE nSKSRO - ALMOST DEVICE INDEPENDENT DISK SERVICE ROUT 1 NES ( DAT A PRODUCTS) 

SUBTTL A, BLACKINGTON/CMF/TH/CHW/RCC/AF TS 02 JUN 69 V424 
XP VDSKSR.424t 

;PUT VERSION NUMBER IN iGLOB LISTING AND LOADER STORAGE MAP 

INTERNAL FTRA10 iTO ASSEMBLE DSKSER AS A 

: 1 DEVICE INDEPENDENT ROUTINE SET 

) This switch to -i. note that mdfint (the bryan'T ; 

■ ] DSKINT) WAS WRITTEN SO AS TO KEEP DSKSER DEV I CE- I NpEPENDENT 
I THIS SWITCH AND CODE ENCLOSED IN ITS IFE'S WILI ULTIMATELY 
I BE REMOVED FROM DSKSER. 



00(10(?0 



INTERNAL 



FTRC10 



ITO ASSEMBLE DSKSER FOR THE PDP-ia DISK 
I (MODEL RC-10), SET THIS Sl^ITCH TO -1. 
I FOR OLD (270) DISK SET IT = (3. 



IFN FTRA10, < 

ENTRY DSKSER 

DSKSER! 

> 

IFE FTRA10. < 

IFN FTRC10. < 

ENTRY nSKSRB 

DSKSRB; 

> 

IFE FTRC10, < 

ENTRY DSKSRD 

DSKSRD! 

>> 



ITHIS SYMBOL IS TO PERMIT SYSTEM 

I BUILDER TO RETRIEVE THE CORRECT BINARY FILIE. 



ITHIS ENTRY FOR SELECTIVE LOAD BY BUILD 



EXTERNAL JIFMIN 
INTERNAL WLB I T , DSKFGS , CHKCNT 
000012 TA=BUFPNT 



lUSED BY RENAME 



57 
58 
59 

60 

61 



000013 TB=BUfWRD 



lUStD BY RENAME 



IFE FTRA10, < 

INTERNAL MFOBLK.SATXWD 

lEN TTRCIB. < 



65 J ; < UNLESS USEf! SPECIFIES OTHERWISE DURING "ONCE". 



** IFE FTRC10, 

o' MFDBLKI 13000 



ITHIS BLOCK CONTAINS RETRIEVAL INFO. OF MFD 



II SATXWOi tM -NUMSAT, 13001 ILH=NUMBER OF SAT BLOCKS, 

70 ^^ IRH=FIRST Sat BLOCK NUMBER. 



nSKSBB 
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000200 CHKCNT=200 
400000 wBBIT=400e00 



BITS IN LH Of IDS 



000100 


NMP=100 




000200 


UBFS=200 




000400 


NORELB=400 




001000 


UBFU=1000 




002000 


NCTRLC»200e 




004000 


DAFLG=4000 




010000 


AUFLG=10000 




016200 


DSKFGS!AUFLG+DAFLG*UBFS*NCTRLC 


020000 


PRCHG=20000 




000040 


U1R=I0END 






iMISCELLANEOUS 


CONSTANTS 


000003 


TRI£S=3 




000200 


BLKSI2=200 




777777 777500 


NBUKSi=-BLKSIE 




000007 


BLKP2=7 






iTEST BITS PUT 


IN UH OF DEVOAD 


200000 


PNTDIF=200000 




100000 


VRGPTR«100000 




020000 


RENBIT:20000 




040000 


WPRO=40a00 




010000 


CKSUPR=10000 





INUMBER OF WORDS TO CHECK-SUM 
IHAIT INDICATION FOR DD8 



INO MORE INPUT POINTERS <LH OF lOS! 
lUSING BUFFER IN FREE STORAGE (L.H OF lOS) 
IDO NOT RELOCATE BUFFER ON I/O (LH lOS) 
lUSING BUFFER IN USER AREA 

IDISABLE tC DURING CRUCIAL SEQUEmCES OF NON- 

I INTERRUPTABLE OPERATIONS 



lUSED TO SUPPRESS ACTION OF tC, 
(PROTECTION CHANGED 
ILAST INPUT REQUESTED 



SEE STOPCK 



INUMBER OF TIMES TO READ OR WRITE BAD BLOCK 
ISIHE OF DATA BLOCK, DUMP MODE REQUIRES THIS 
ITO BE A POWER OF 2, 
IBLKSIE a 2tBLKP2 



(POINTERS IN CORE DO NOT MATCH POINTERS ON DISC 

IFLAG TO SIGNAL THAT POINTERS HAVE NEVER BEEN WRITTEN 

P'RENAMING" INDICATION FOR SETLE ROUTINE 

ILOOKUP DONE, FILE IS IN WRITE PROTECT 

IFLAG SET IF READING DUMP FILES IN NON-OUMP MODE 



OSKSRB 
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ICONSTANTS USED IN CONMECTION WITH ACCESS TABLE ENTRIES 



000000 


ATPP = K) 


000001 


ATNAME=1 


000002 


ATEXT=2 


000002 


TBITS=2 


000003 


ATBL0Ks3 


000003 


ATLINK«3 


400000 


WTBIT*400000 


200000 


OTBIT=200000 


100000 


RTeiT=100000 


500000 


ATBITS=500000 


040000 


ATIND=40000 


020000 


ATCLO=20000 


010000 


RWTBIT=10000 


007777 


RC0UNT=7777 



(PROJECTiPROGRAMMER NUMBERS 

lOWNERS NAME 

(EXTENSION 

(TEST BITS AND RCOUNT 

IBLOCK NUMBER OF RETRIEVAL INFO OF UFO Im LH 

(LINK TO NEXT ENTRY IN HH 

IFILE IS BEING CREATED 

lOELETE WHEN THRU READING 

IFILE HAS BEEN RENAMED 

IWTBIT*RTBIT 

INAME IS ALREADY IN DIRECTORY 

•OUTPUT CLOSE TO BE DONE 

(FILE BEING READ AND WRITTEN, BUT NOT CRFATEO, 

(MASK FOR The COUNT OF READERS 



(CONSTANTS USED IN CONNECTION WITH SAT BLOCKS 



XP NUM9IT,tD36»BLKSIZ 

IFE FTRA10, < 

IFN FTRC10, < 

XP NUMSAT,4 

> 

II'E FTRC10, < 

XP NUMSAT,16 

>> 

XP WLBIT, 400000 



(NUMBER OF BITS IN ONE BLOCK 



(ONLY FOUR SAT BLOCKS ON PDP-10 DISK. 

(NUMBER OF SAT BLOCKS FOR 5.76 MILLION 

(WORD DATA PRODUCTS MODEL 270 DISK, 

(IF BIT IS ON IN FIRST SATENT ENTRY' 
(WORD, THE DISK IS WRI TE-LOCKED, 



OSKSRB 
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136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
145 



EXTERNAL DSKOFF 

DEFINE NOSCHEDULE < 

CONO PI.nSKOFF 
> 



EXTERNAL DSKON 
OEFINt SCHEDULE < 

CONO PI , DSKON 
> 
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4. BLACKINGTON/CME/TH/CHW/RCC/AF TS (?I2 JUN 69 ¥424 

l.«7 INTERNAL ETCHECK .FTMONP 

148 IFN FTCHECK+FTMONP.< 

149 EXTERNAL DDBPTR i DSKCOR , PIRN, MOPTR ,M I PTR, RUNUSR i SAVPRG. USRCNT 

150 EXTERNAL SATPTR . SAT ,SATBK2 , D t RS I Z 

151 EXTERNAL DSKDDB , OEVACC , DEVCNT , DEVBLK , DEVBKO ,DSKBUF 

152 EXTERNAL DSkCNT , SETCNT , PTRl .FPNTR .FPNTRl.F AT, DFBUSY .LOCORE • GTC0R3 

153 EXTERNAL GTC0R2 , CORE I T , CKSMCT , DSKS I E , DSkACC , DSKAPP .CORBS? ,MONBUF 

154 > 

155 IFE FTCHECK+FTMONP,< 
156 

157 lOISK DEVICE DATA BLOCKS S MISCELLANEOUS CONSTANTS, WORKING STORAGE 

158 P000(!)2 000000 000000 DDBPTR; i ILOCATION OF NEXT DOB TO LOOK AT 

159 lOURING DISK INTERRUPT 
160 

161 IMORE MISCELLANEOUS FOR DISK 

152 

153 INTERNAL SATPTR , SAT , SATBK2 , REFLAC , DFBUSY , CKSMCT 

164 000003 MOPTR! BLOCK 1 (POINTER TO NEXT TASK TO DO 

165 000004 MIPTR! BLOCK 1 (POINTER TO NEXT .FREE QUEUE ENTRY 

166 000005 RUNUSHi BLOCK 1 (LH=DEV0AT OF USER JOB RUNNING 

167 IRH= UNUSED 

168 000006 USRCNTi BLOCK 1 (COUNT OF WAITING USER JOBS 

169 000007 000000 000000 DFBUSYl (^1 IF DISK CONTROL IN USE, IF FREE 

170 000010 000000 000000 FATI a (POINTER TO FIRST ACCESS TABLE ENTRY 

171 000011 000000 000000 CKSMCTi (COUNT OF VARIOUS CHECKSUM ERRORS 

172 000012 000000 000000 REFLAGt (CONTAINS A PPN TO ALLOW LOGIN AFTER REFRESH 

173 000013 000000 000000 UXFERS! (TOTAL USER TRANSFERS ATTEMPTED 

174 000014 000000 000000 ECOUNT: (TOTAL HARDWARE ERRORS ON USER TRANSFERS 

175 (DISK STORAGE ALLOCATION CONTROL 
176 

177 000015 SATPTR! BLOCK 1 (POINTER TO CURRENT SATENT ENTRY 

178 000016 SATPIK! BLOCK 1 (POINTER TO NON-FULL SAT ENTRY 

179 000017 SATCHGt BLOCK 1 (0 IF SAT BLOCK IN CORE=BL0CK ON DISK, -1 OTHERWISE, 

180 000020 SATTEMI BLOCK 1 (TEMPORARY SAVE LOCATIONS USED DURING THE SAT R|EAD 

181 000021 SATTMP! BLOCK 1 ( ROUTINE TO AVOID PUSH-DOWN LIST OVERFLOW, 
182 

183 IFN rTRA10, < 

184 EXTERNAL MFOBLK , SATXWD ,NUMBLK , SATENT , SENTS2 ,SATTOP 

185 > 

186 IFE FTRA10, < 

187 INTERNAL SATENT 
188 

189 IFN FTRC10. < 

190 XP NUMBLK. '04000 (NUMBER OF DATA BLOCKS PER SAT BLOCK ON THE 

191 I PDP-10 MODEL RC-10 DISK FILE, 

192 > 

193 IFE FTRC10I < 

194 XP NUMBLK,5400 (NUMBER OF DATA BLOCKS REPRESENTED BY 

195 (ONE SAT BLOCK ON THE DATA PRODUCTS 270 DISK. , 

196 > 

197 XP SENTSZ,3 ISIEE OF EACH SATENT ENTRY 

198 IFN FTRC10, < 

199 000000 DSKXDB«0 (ON PDP-10 DISK FILE STORAGE BEGINS IN LOGICAL i 
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2H2 
2t)3 
2!<4 
2!?5 
Z?6 



> 

IFE FTRC10I < 
DSKXnB=5400 



1 BLOCK NO. (", 



IFILE STORAGE BEGINS ON SECOND DISK OF 01 D (MOD 270) 
I DISK FILE SINCE FIRST DISK IS ALLOCATEn 
( TO SWAPPING, 



.SKS«B ■,^^^^^^^,^^;i;i^^l^y^n^^O.^Om^ '5^^?°U.HS, M.CR0.V36 .,... 4-UUN-6, P*CE Is 



i" SATEMTt REPEAT NUMSAT,< 



209 □.''^nr^ OSKXDB.a ,RH CONTAINS WLBIT AMD COUNT OF BLOCK USfO 

210 B^°" 1 "BIT MASK, SINGLE ROTATING BIT 

211 ^'-^'^K 1 IXWD LENGTH OF SAT TABLE POINTER TO WORD 
21? „ : I IN SAT BLOCK 

2^3 DSKXDS=DSKXOB*NUMBLK> 

21. .00022 000000 000000 ,,, 3,,pB,, ,RH CONTAINS WLBIT AND COUNT OF BLOCK USED 

216 000024 ^^°" J 'BIT MASK. SINGLE ROTATING BIT 

217 ^^°<='< ^ '^^° LENGTH OF SAT TABLE POINTER TO WORD 

III 007640 OSKXDB = DSKXOB*NUMBLK ' "^ "^ ^^"'^'^ 

III S' '''''' '"'''' b'lSck r'^'-' '«H CONTAINS WLB.T AND COUNT OF BLOCK USED 

222 000027 ohnp^ h '^'^ "*S'<' SINGLE ROTATING BIT 

223 ^'•"'^^ ^ "<W0 UENGTH OF SAT TABLE POINTER TO WORD 

11'^ "17500 OSKXDB = OSKXDB*NUMBLK ' '^ ^"^ ^^°^^ 

IT? Zlll ""'' '""'' 'fSc K ?''""'' "', '°'''''' ''''' '^° "^^^ °' SLOCK USED 

228 000032 oinr^ J '^''^ "*SK. SINGLE ROTATING BIT 

229 '"■"'^'^ 1 'XWD LENGTH OF SAT TABLE POIN-TER TO WORD ' 

III 027340 DSKXDB-DSKXOB*NUMBLK ' '^ ^^^ ^^°" 

233 0K '"''' ''"''''' ^l'ock f'"'"'' >R« CONTAINS WLBIT AND COUNT OF BLOCK USED^ 

234 000035 BLOCK } '^}.l '^t^^' ^■^'^'■^ ROTATING BIT 

235 S^°C'< 1 IXMD LENGTH OF SAT TABLE POINTER TO WORD 

236 037200 OSKXDB = DSKXDB*NUMBLK ' ^^^ ^''"''^ 

239 XP SATTOP,SATENT*SENTSE»NUMSAT-SENTSHt 

24? > 'END OF FTRA10 CONDITIONAL 

242 

244 ^'^^'^ ^*^' SLOCK 200 ICURRENT SAT BLOCK 

246 "'' SATM2.SAT.2 ILOWEST ABS. ADR-1 ALLOWED IN CHANNEL COMMAND 

247 000236 777600 000036' SATBK2I XWO -200, SAT ' ""'^^ ' ^^" ''° "^^^^ """"^ WIPING OUT MOMtOR. 



nSKSPB 
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248 










XP 


DIRSIZ,4 


249 














250 














251 








;THE DUMMY DEVICE DATA BLOCK 


252 






000010 


DSKCORs 


10 




253 






000040 


OSKSIi( = 


4»DSKC0R 




254 














255 








INTERN 


nSKona 




256 


000237 


446353 


000000 


DSKODBI 


SIXBIT 


/DSK/ 


257 


000240 


000005 


000201 




XWD 


tD5»HUNGST.201 


258 


000241 


000000 


000000 




H 




259 


000242 


000000 


000470' 




EXP 


OSKDSP 


260 


000243 


201007 


154403 




xwo 


OVOUT+OVIN+OVDIR 


261 


000244 


000000 


000000 




I 




262 


000245 


000000 


000000 




I 




263 


000246 


000007 


000000 




xwo 


PROG, 


264 


000247 


000037 


000000 




XMD 


PROG, 


265 










XP 


DEVFIL, .-DSkhOB 


266 


000250 


000000 


000000 




I 




267 










XP 


DEVEXT, ,-OSKnOB 


268 


000251 


000B("0 


000000 




i 




269 










XP DEVPPN. ,-DSkDDB 


270 














271 


000252 


000000 


000000 




? 




272 










XP 


OEVACC, .-OSKODB 


273 


000253 


000000 


000000 




i 




274 














275 










XP 


OEVCNT, .-DSKOOB 


276 










i 




277 


000254 


000000 


000000 


) 






278 














279 










XP 


DEVBLK, ,-DSKDDB 


280 


000255 


0000:^0 


000000 




I 




281 














282 














283 










XP 


DEVBKOi.-DSKnDB 


284 


000256 


000000 


000000 




i 




285 














286 










XP 


DSKBUF, .-DSKDDB 


287 


000257 


000000 


000000 




? 




288 














289 










XP 


DSKCNT, , -DSKDDB 


290 


000260 


000000 


000000 




z 




291 














292 










XP 


SETCNT, , -DSKDDB 


293 














294 


000261 


000000 


000000 




i 




295 










XP 


PTRl,, -DSKDDB 


296 














297 










XP 


FPNTR.PTRI+DIHSI 


298 










XP 


FPNTRl.FPNTR-lt 


299 










XP 


PTRN,DSKSIZ-1» 


300 















INO, OF WORDS OF RET, 
INOT POINTERS, 



INFO WHICH ARE 



(NUMBER OF WORDS ALLOCATED FOR DOB 
IMUST BE A MULTIPLE OF FOUR (SEE GETCOR) 



♦OVDSK+DVLNG, 154403 



IFILE NAME 

ISIXBIT/FILE? - FILE NAME 

(FILE EXTENSION 

IXWD SIXBIT/EXT/,BLOCK# OF THE RIB 

IPROJ, PROGRAMMER FOR CURRENT 

I (OR MOST RECENT) LOOKUP . ENTER , RENAME 

IC(LH)=LDCATION OF CCESS TABLE ENTRY 

IC(LH)»AODRESS OF ACCESS TABLE ENTRY 

IC(RH)=ADDRESS DF CURRENT POINTER IN DDB 

)C(LH)USED DURING LOOKUP, ENTER 

IC(LH)=RELATIVE BLOCK* WITHIN UFD OPTIMISE UFD SEARCHES 

)C(RH1=C0UNT OF BLOCKS IN FILE 

)C(LH)»BLOCK NUMBER OF CURRENT POINTER 

)C(LH)=L0G1CAL BLOCK# OF RIB 

1C(RH)=RELATIVE LOC. OF NEXT 

IPOINTER IN THAT BLOCK 

ILIKE DEVBLK, BUT FOR BEGINNING 

ISIMILAR TO DEVBLK - SAYS WHERE CURRENT 

I POINTERS COME FROM 

IC(LH)=-SIZE OF MONITOR READ/WRITE 

IC(LH)=-SIZE OF READ/WRITE 

IC(RH)=BUFFER IN USER AREA 

IC(LH)'BLOCK NUMBER TO READ/WRITE 

IC(LH)=LOGICAL BLOCK* FOR READ OR »IRITE 

IC(HH)»ERROR COUNT OR ERROR BITS 

)LH CONTAINS POINTER TO R,I, OF 

IC(LH)=BLOCK# OF UFD RIB 

(UFO, RH IS SETO. SETI COUNTER. 

(RETRIEVAL INFO STARTS HERE 

) DEFINE THE AREA CONTAINING RETRIEVAL POINTERS 

H ILOC. OK FIRST POINTER TO RET, INFO, 



DSKSRB 



3CI1 

3az 

3213 
304 
3P15 
3f6 
3(!7 
3tl8 
309 
3]0 
311 
312 
313 
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000263 
000264 
000265 



JDEFINE 3 WORD ENTRY CONTROLLING BIT SEARCHING IN DDBTAB 

INTERNAL LOCORE.CRINIT 
EXTERNAL DDBTAB 



000262 000000 000000 LOCORE! EXP 



000000 000000 
000000 000000 
000000 000000 



CORBIT! 

CORIWD; XWD 0,0 

CRINIT: XWD 0, DDBTAB 

MONBUFi BLOCK 200 

> 



(ADDRESS OF FIRST 4 WORD BLOCK IN FREE CORE AREA 

I SET BY LINKOB 

•FLOATING 1 BIT USED IN SEARCHES 

lAOBJN POINTER TO FIRST WORD IN DDBTAB CONTAINING A 

(INITIAL AOBJN POINTER FOR CORIWD 

I LH SET BY LINKOB 

IMONITOR BUFFER, USED TO READ RETRIEVAL POINTERS, ETC, 
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314 








iERROR 


COOES 


FOR LO 


315 














316 






000000 


NOTINUs 







317 






000001 


NUTINJM: 


1 




318 






00000^ 


PHDTF=a 






319 






000003 


NORITE= 


3 




320 






000004 


RENFAL: 


4 




321 














322 






000005 


NOFILE= 


5 




3?3 






000001 


ERRBIT: 


1 




324 














325 














326 








JDISK DISPATCH TaBL 


327 














328 








INTERNAL DSKDSP 


329 














330 


000466 


254000 


000524' 




JRST 


OSKINI 


331 


000467 


254000 


000000 




JRST 


CPQPJl 


332 


000470 


254000 


003355' 


DSKOSPl 


JRST 


DFREL 


333 


000471 


254000 


001453' 




JRST 


DFCLSO 


334 


000472 


254000 


003073' 




JRST 


OFOUT 


335 


000473 


254000 


002757' 




JRST 


DFIN 


336 


000474 


254000 


000625' 




JRST 


qfentr 


337 


000475 


254000 


000766' 




JRST 


OFLOOK 


338 


000476 


254000 


002215' 




JRST 


DFOMPO 


339 


000477 


254000 


002431* 




JRST 


DFOMPI 


340 


000500 


254000 


002607' 




JRST 


DFSET 


341 


000501 


254000 


002607' 




JRST 


OFSET 


342 


000502 


263140 


000000 




POPJ 


POP, 


Hi 


000503 


254000 


001103' 




JRST 


DFREN 


344 


000504 


254000 


001601' 




JRST 


DFCLSI 


345 


000505 


263140 


000000 




POPJ 


POP, 


346 


000606 


263140 


000000 




POPJ 


POP, 



AND/OR ENTER 

INO SUCH FILE 
IfJO SUCH USER 
IPROTECTION FAILURE 
IMORE THAN 1 WRITE TO 
(TRIED TO RENAME FILE 
) A NULL FILE NAME 
(TRIED TO RENAME WITH 
IBITS GO IN WORO 1 OF 



* FILE 

TO EXISTING NAME OR ENTER 

NO FILE SELECTED 
THE ENTRY 



IINITILI?E 

IDSK HUNG TIMEOUT, NO ERROR MESSAGE 

IRELEASE 

ICLOSE OUTPUT 

lOUTPUT 

I INPUT 

lENTER 

(LOOKUP 

lOUMP OUTPUT 

IQUMP INPUT 

lUSETO 

lUSETI 

lUGETF 

(RENAME 

(CLOSE INPUT 

(UTPCLR 

(MTAPE 



DSKSRB 
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347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 

366 
367 
366 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 



000507 
000510 
000511 
00W512 
000513 
000514 
000515 
000516 
000517 
000520 
000521 
000522 



000524 
000524 
000525 



000527 
000530 
000531 
000532 

000533 
000534 
000535 
000536 
000537 
000540 
000541 
000542 
000543 
000544 
000545 
000546 



205040 
201300 
554306 
322300 
316046 
254000 
201040 
5063f:i 
205040 
202040 
200040 
202040 



402000 
402000 



402000 
402000 
476000 

403000 

2013«10 
5543ti6 
32 2 3'^0 
205040 
312046 
2540120 
554046 
332000 
260140 
205040 
412046 
412046 



446353 

000237' 

000003 

000516 ' 

000000 

000511' 

000237' 

000003 

400000 

000263' 

000265' 

000264' 



000523 263140 000000 



000000 

000000 



000526 5130f0 000000 



000007 ' 
000005' 
000006' 
000002' 

000237' 

000003 

000553' 

446353 

000000 

000553' 

000014 

000001 

002163' 

400000 

000007 

000010 



lACCINI - CALLED AT 140 START, 143 RESTART 

! RESTORE DEVICE DATA BLOCK CHAIN 

! INITIALIZE DDBTAB BIT SEARCHING ENTRY 

INTERNAL ACCIN! 

ACCINI: MOVSI TAC.(SIXSIT /DSK/) 

MOVEI DEVDAT.DSKDDB (POINT TO PROTOTYPE DOS 
ACClNl: MLRE DEVOAT,DEVSER(DEVOAT) 

JUMPE DEVDAT.ACCINS 

CAMN TAC,DEVNAM(DEVDAT) 

JRST ACCINI 
ACCIN2I MOVEI TAC.OSKDDB 

HRLM DEVDAT,DEVSER(TAC) 

MOVSI TACi400000 

MDVEM TAC.CORBIT 

MOVE TAC.CRINIT 

MOVEM TACiCORIWO 



ILINK PROTOTYPE TO FIRST NON DSK DDB 
UNITIALIZE FLOATING 1 BIT 



IHESET AOBJN WORD 



POPJ POP, 



;DSKINI - CALLED AT 140 START, RESTART. 143 RESTART 

I REMOVE ACCESS ENTRIES, REMOVE DOB'S NOT ASSIGNED BY CONSOLE. 

E. 

INTERNAL DSKINl, SETSAT 

EXTERNAL U I SKUP , DFWUNS 



CLEAR THE MONITOR OUt 



DSKINl I 



IFN F 
SETZM 
SETZM 



IFE F 
EXTERNAL DSKC 
HLLZS 
> 

SETZM 
SETZM 
SETQM 
SETZR 

MOVEI 
DSKIM0t HLRZ 
JUMPE 
MOVSI 
CAME 
JRST 
HLRZ 
SKIPE 
°USHJ 
MOVSI 
ANDCA 
ANDCA 



TSW4P, < 
SQREO 
SERA 

TRA10, < 
ON 
DSKCON 



INO SWAPPING REQUEST 



(CLEAR INTERRUPT FLAGS FOR CONSO 



DFBUSY IDISK CONTROL AVAILABLE 

PUNUSR INO USER I/O IN PROGRESS 

USRCNT INO USER TRANSFERS WAITING 

DDBPTR INO NEXT DOB 

I CLEAR IDS (SUPERSTITIOUS, BUT PaSSldLY NECESSARY) 

DEVDAT.DSKDDB (PREPARE TO RELEASE DISK ODB'S 
OEVDAT,DEVSER(DEVDAT) (GET DDB LINK 

DEVDAT, DSKINl (JUMP IF END REACHED 

TAC, (SIXBIT /nSK/l (DEVICE NAME 
T4C,DEVNAM(DEV0AT) (IS THIS A DISK DOB? 
DSKINl (NO. DONE 

TAC, DEVACC(DEVnAT) IGET POINTER TO ACCESS ENTRY 

TAC (ACCESS ENTRY EXIST? 

POP.CLRAT (YES. REMOVE IT 

TACWSRIT (PREPARE TO CLEAR "TRANSFER WAITING" BIT 

M TAC,OEVIAO(DEVD4T) (CLEAR INPUT WAITING 
M TAC,DEV04n(DEVDAT) (CLEAR OUTPUT WAITING 



DSKSne 


- ALMOST 


OEVICE 


INDEPENDENT DISK 




A. BLACKINETON/CMF/TH/CHW/RCC/A 


400 


00PI547 


200046 


000004 




4P1 


00fi550 


606040 


400000 




432 


PI00551 


260140 


003555' 




403 


H00552 


254000 


000534* 




4C4 










4(^5 


000553 


402000 


0000101 


DSKINl: 


4(16 


000554 


201040 


000001 




4ti7 


000555 


202040 


000004' 




408 


000556 


202040 


000003' 




4H9 


000557 


505040 


000000 




410 


000560 


402000 


000557' 




4U 


000561 


251040 


777777 




112 


000662 


260140 


000000 




413 


000563 


352000 


000566' 


SETSATi 


414 


000564 


254000 


000577' 




415 


000565 


254000 


000000 




416 


000566 


777777 


777777 


STARTSi 
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MOVE TAC,DEVMOO(OEVDAT) 
TRNN TAC.ASSCON 
PUShj PDP.Cli^ODB 
JRST DSKIN0 

SET2M FAT 

MOVEI TAC.MQUEUE+1 

MOVEM TAC.MIPTR 

MOVEM TACiMOPTR 

MRLI TAC.MQUEUE 

SETZM MQUEUE 

8LT TAC,MQT0P-1 

PUSHJ PDP.DISKUP 

AOSE STARTS 

JRST SATDl 

JRST DFWIJNS 

-1 



IDDB ASSIGNED BY ASSIGN COMMAND? 

INO. REMOVE DDB 

ICONTINUE 

IND ACCESS ENTRIES 
lOESTINATION FOR BLT 

(RESET IN AND OUT POINTERS 

ISOURCE FOR BLT 

ICLEAR THE MONITOR QUEUE 

(DETERMINE IF DISK IS FUNCTIONING 

ISKIP FIRST TIME ONLV 

(WRITE SAT BLOCK IN CORE 

(SCAN ALL SAT BLOCKS 

(COUNT STARTS, RESTARTS 



DSKSCIB - ALMOST OEVICE INDEPENDENT DISK SERVICE ROUTINES (BURROUGHS) MACRO, V36 19105 4-JUN-69 PAGE Zl 
A. BLACKINGTON/CMF/TH/CHW/RCC/AF TS 02 JUN 69 \IA?A 

^17 IWRITE OUT SAT BLOCK. ENTER AT OSKSTP WITH FIXED START 147, 

Jj-8 )AT SATOl UPON RE-ENTRY OF INITIALIZATION, 

120 INTERN OSKSTP, SAT05,jSAT06 
421 

''22 EXTERNAL QSKB I T , wSVNC .STOI OS , DCBR I T 
423 

424 000567 551040 000000 DSKSTPs HRR2I TACOSKBIT 

425 000570 435040 000000 IQRI TAC,DCB8IT 1DCB8IT NON-?ERO ONLY FOR DATA-PRODUCTS nSlK 

426 000571 435040 002200 ICRI TAC,2200 ICLEAR PI SYSTEM 

427 000572 700601 010000 CONQ P I , 10000 ( TAC ) 

428 000573 331000 000566' SKIPL STARTS iHAS A SAT BLOCK BEEN READ IN? 

429 000574 260140 000577' PUSHJ PDP, SATOl lYES, WRITE IT OUT 

430 000575 700600 010000 rONQ PI, 10000 

431 000576 263140 000000 PoPj PDP, lYDU ARE SAFELY DONE, 

433 000577 201300 000237' SATOli MOVEI DEVDAT ,DSKOOB 

434 000600 403006 000002 SETZR I OS , DEV I OS ( DEVHAT ) 

435 000601 201340 000000 MOVEI PKDG,0 

436 000602 261140 000000 PUSH PDP,WSYNC ICHANGE WSYNC ROUTINE 

437 000603 200040 000624' MOVE TAC,JSAT06 

438 000604 202040 000602' MOVEM TAC>WSYNC 

439 000605 201200 000003 SAT05i MOVEI ITEM, TRIES ISET UP COUNT FOR ERRORS 

440 000606 260140 003546' SAT02i PUSHJ PDP.SaTBlK (SET \JP TAC,TAC1 

441 000607 260140 004112' PUSHJ POP.MQOUT (WRITE IT, 

442 000610 254000 000615' JRST SAT04 (ERROR 

443 000611 402000 000017' SETZM SATCHG (SHOW SAT BLOCK IN CORE = BLOCK ON DISK. 
444 

445 000612 262140 000604' POP PDP.WSYNC (NO ERRORS. SO RETURN, 

446 000613 402006 000002 SET2M DEV I OS ( DEVDAT ) 

447 000514 263140 000000 pQPj pop, 
448 

449 000615 367200 000606' SAT04I SOJG ITEM,SAT02 (ERRORS, SO TRY AGAIN 

t50 000616 262140 000512' POP PDP. WSYNC (RESTORE WSYK'C ROUTINE 

451 000617 254200 000577' JRST 4, SATOl 
452 

453 000620 201040 010000 SAT06: MOVEI TACIOACT (THIS IS SUBSTITUE FOR WSYNC 

454 000621 512046 000002 TONE TAC , OEV I OS ( DEVDAT ) 

455 000622 254000 000621' JRST ,-1 

456 000623 263140 000000 POPj PDP, 
457 

458 000624 254000 000620' JSAT06: JRST SAT06 



DSKSRB - ALMOST HEVICE INDEPENDENT DISK SERVICE ROUTINES (BURROUKHS) 
A. BLACKINGTON/CMF/TH/CHW/RCC/AF TS 02 JUN 59 V4J4 

SUBTTL ENTER, LOOKUP, RENAME, CLOSE 
JENTEK UUO 
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459 








460 








461 








462 








463 








464 








465 


P!00625 


336020 


000014 


466 


000626 


264000 


004440' 


467 


CI00527 


260140 


001071' 


468 


000630 


603300 


040000 


469 


000531 


254000 


000735' 


470 


000632 


661000 


000020 


471 


000533 


260140 


001340' 


472 


000534 


254000 


004402' 


473 


000635 


254000 


000651' 


474 


000636 


254000 


004372' 


475 


000637 


254000 


000763' 


476 








477 


000640 






478 


000640 


700600 


000000 


479 


000541 


550046 


000012 


4B0 


000642 


250140 


003315' 


481 


000643 


205240 


100000 


482 


000644 


260140 


001423' 


4B3 


000645 


254000 


004360' 


484 


000645 


254000 


004400' 


485 


000647 


201100 


460000 


486 


000550 


625000 


020000 


487 


000651 


201100 


420000 


488 


000552 


513005 


000012 


489 








490 


000553 


700600 


000000 


491 


000654 


250140 


002143' 


492 


000655 


254000 


000564' 



EXTERNAL TIME, PRJPRG, CROP Jl.THSOAT 



OFENTRl SKIPN PUUO 

JRST DFER12 
PUSHJ PDPiALTMFD 
TLNE DEVDAT.LOO^B 
JRST DFENT5 
TLO IOS,IO 
PUSHJ PDP.SETLE 
JRST DFERR4 
JRST DFENT2 
JRST DFERRS 
JRST 0FENT7 



DFENTl: 



DFENT2! 



IZERO FILE NAME ? 

lENTER TO MFn? 

(NO, HAS LOOKUP BEEN DONE? 

(YES 

IRETURNS WITH PP ON PDL 

(NO UFD, CLOCK ON 

INO FILE, CLOCK ON. 

IFILE BEING WRITTEN 

(FILE BEING READ, CHECK FOR WRITERS 



SCHEDULEt 

CONG PWDSKQN 

HRRZ TAC,DEVEXT(DEVDAT) 

PUSHJ PDP.SETPTR 

MOVSI OAT, 100000 

PUSHJ PDP.PROTEK 

JRST DFERR3 

JRST DFERR5 

MOVEI TAC1.WTBIT+ATIN0*ATCL0 (BITS FOR ACCESS ENTRY-FILE EXISTS 



(BLOCK* OF FIRST RIB 

(READ FIRST RETRIEVAL POINTERS TO ODB 

(WRITE PROTECTION BIT 

(WRITE PROTECTED? 

(NAME WRONG 

(PROTECTION FAILURE. 



TL2A lOS.PRCHG 

MCVEI TACl>WTBIT*ATCLO 

HLLES DEVEXTiOEVDAT) 

NQSCHEDULE' 

CONG PI,DSKOFF 

PUSHJ POP.SCANAT 

JRST DFENT3 



(PREPARE FOR PROTECTION CHECK 

(BITS FOR ACCESS ENTRY - FILE CREATION 

(SET TO RIB BLOCK# 



(SCAN ACCESS TABLE 
(NOT THERE 



"ROM BEGINNING 



□SKSRB 



- ALMOST DEVICE INDEPENDENT DISK SERVICE ROUTINES (BURROUGHS) 
ENTER. LOOKUP. RENAME. CLOSE 
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493 


000656 


200241 


000002 


DFEN2A I 


494 


000657 


602240 


400000 




495 


000660 


254000 


004372' 




496 


000661 


260140 


002157' 




497 


000662 


2540P)0 


000664' 




498 


000663 


254000 


000656' 




499 










500 


000664 


623000 


020000 


DFENT3I 


501 


000665 


254000 


004400' 




502 










503 


000666 


700600 


000640' 




504 


000667 


261140 


000002 




505 


000670 


260140 


003371' 




506 


000671 


262140 


000002 




507 


000672 


516046 


000016 




508 


000673 


516046 


000017 




509 


000674 


542046 


000012 




510 










511 


000675 


700600 


000653' 




512 


000676 


200240 


000002 




513 


000677 


260140 


002201' 




514 


000700 


506106 


000014 




515 


000701 


201246 


000023 




516 


000702 


200040 


000005 




517 


000703 


505060 


000014 




5lB 


000704 


251045 


000002 




519 










5?0 


000705 


7006(10 


000666' 




5?1 


000706 


20011^0 


000000 




522 


000707 


435100 


401000 




523 


000710 


5421^5 


000001 




524 


000711 


2001!'5 


000002 




525 


000712 


6211!?0 


777740 




526 


000713 


326l?!0 


000720' 




527 


000714 


200040 


000000 




528 


000715 


231010 


000000 




529 


000716 


550100 


000706' 




530 


000717 


137040 


004577' 




531 


000720 


6611?0 


055000 


DFENT4! 


532 


000721 


1370^0 


004600' 




533 


000722 


2021-"5 


000002 




534 


000723 


2002:?0 


000000 




535 


000724 


200044 


000000 




536 


000725 


202045 


000003 




537 


000726 


402005 


000004 




538 


d007?7 


205000 


000100 




539 


000730 


4370-'6 


000002 




540 


000731 


6213'.?0 


001000 




541 


000732 


513036 


000015 




542 


000733 


205040 


100000 




543 


00 7 34 


436046 


000010 




544 


000735 


Pbiiicii 


001044' 





DFEN2AI MOVE OAT , IB I TS ( TAC ) 
TRNE UAT.WTBIT 
JRST DFERR6 
PUSHJ PDP.SCNAT2 
JRST DFENT3 
JRST 0FEN2A 



(WRITE BIT ON? 
lYES. ERROR 



(PROTECTION FAILURE? 
(YES, GIVE ERROR RETURN, 



TLZE lOS.PRCHG 

JRST DFERR5 

SCHEOULtt 

CONO PI.DSKQN 

PUSH PDP.TACl (SAVE ACCESS BITS 

PUSHJ POP, DFGETF (GET A BLOCK FOR RETRIEVAL POIiMTERS, 

POP PDP.TACl (RESTORE ACCESS BITS 

HRLHM TAC,DEVBLK(DEV'1AT) (SET CURRENT Ria# AND INDEX IN DDB 

HRL^M TAC.DEVBKOIDEVf^AT) 

HRRM TAC,OEVEXT{DEVDAT) (STORE FIRST RIB# 

NOSCHEOULE* 

CONO PI.DSKOFF 



# In TAC 



MOVE DAT.TACl 

PUSHJ PDP.SETAT 

HRLM TACl,DEVACC(DEvnAT 

MOVEI DAT.PTRl(OEVOAT) 

MOVE TAC, OAT 

HRLI TAC.SUUO 

BLT TAC,2(0AT) 

SCHEDULEt 

CONO PI.DSKON 

MOVE TACl.THSOAT 

ORI TACl, 400000 

HRRM TACl.KDAT) 

MOVE TAC1,2(0AT) 

TL? TACl, 777740 

JUMPN TAC1>DFENT4 

MOVE TAC, TIME 

IDIVI TAC.JIFMIN 

HRRi! TACliTHSOAT 

nPB TAC. [POINT 11, TACl, 

TLO TACl, 55000 

DPP lOS, [POINT 4, TACl. 1 

MOVEM TAC1.2(0AT) 

MOVE ITEM, JOB 

MOVE TAC,PRJPRG(ITEM) 

MOVf^ TAC.3(0AT) 

5£TZM 4(DAT) 

MOVSI lOS.NMP 

ORB lOS.DEVIOSOFVnAT) 

TL2 OEVDAT.OCLOSB 

HLL2S DEVCNT(OEVDAT) 

''OVSl TAC.VRnPTH 

lORM TACDEVnAOIOEVDAT) 

JRST ALLOK 



(ACCESS ENTRY BITS 

(CREATE ACCESS ENTRY, RETURN POINTER IN TACl 

) (STORE POINTER TO ACCESS ENTRY 

(SET UP RETRIEVAL INFO 
(DESTINATION (DDB) 

(SOURCE (UUO PARAMETER BLOCK) 

(NAME « EXTENSION 



(MAKE SURE ACCESS DATE NON-ZERO. 
(STORE THSDAT AS ACCESS DATE 

( IS THERE A DATE ALREADY? 
(YES IF JUMP, 
(NO, GET TIME, 

(AND DATE. 
23] 

(PROTECTION 
23 (MODE 

(STORE PROTECTION, MODE, TIME, DATE IN V^ 



(STORE PROGRAMMER* IN DDB 
(CLEAR FIRST POINTER 
(SET "NO MORE POINTERS" 



(CLEAR FILE SIZE 

(SET "VIRGIN POINTER" FLAG (SO DF04A SUB'^OUTINE 

(WILL CREATE A NEW RIB WHEN JUST CALLEK 



OSKSRS - ALMOST DEVICE INDEPENinENT DISK SERVICE OOUTINES ( ByROUGHS ) 
ENTER. LOOKUP. RENAME. CLOSE 
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515 








546 








547 


0B0735 


200046 


000010 


548 


(?0PI737 


603040 


040000 


549 


000740 


260140 


004400' 


5513 


000741 


554046 


000014 


551 








552 


000742 


700600 


000675' 


553 


(100743 


200101 


000002 


554 


000744 


662100 


010000 


555 


000745 


260140 


004372' 


556 


000746 


202101 


000032 


557 








558 


000747 


700600 


000705' 


559 








560 


000750 


200060 


000014 


561 


000751 


312046 


000011 


562 


000752 


254000 


004406' 


563 


000753 


271630 


000001 


564 


000754 


510060 


000014 


565 


000755 


430046 


000012 


566 








567 


000756 


603040 


777777 


568 


000757 


2540710 


004406' 


569 


000760 


3700130 


000014 


57a 


000761 


260140 


003316' 


57:1 


000762 


260140 


001025' 


572 








573 








574 








575 








576 








577 








578 


000763 


260140 


002157' 


579 


000764 


254000 


000640 ' 


530 


000765 


254000 


004372' 



iAN ENTER AFTER A LOOKUP, SET "RWTBIT" FLAG IN ACCESS ENTRY 



DFFNT5I MOVE TAC , DEVOAO ( DE VOAT ) 
TLNE TAC.WPRO 
PUSHJ PDP.OFERRS 
HLRZ TAC,UEVACC(DEVOAT) 
NOSCHEDULE' 
CONO PI.DSKOFF 
MOVE TACI.ThiTS(TAC) 
TROE TACl. RWTBIT 
PUSHJ P0P,0FERR6 
"DVEM TACl.TBITS(TAC) 
SCHEnULEt 

CONO PI .nsKON 

MOVE TAC.PUUO 

CAME TAC.DEVFlL(DEVaAT) 

JRST 0FERR8 

ADOI UUO.l 

HLLZ TAC.SUUO 

XOR TAC,nEVEXT(DEVDAT) 

TLNE TAC.-l 

JRST 0FERR8 

SOS UUO 

PUSHJ POP.SETPTR 

PUSHJ PUP.DFLUK4 



IFILE IS BEING READ 

DFENT7i PUSHJ P0P.SCNAT2 
JRST QFEMTl 
JRST DFERR6 



(CHECK PROTECTION 

IFAILURE, THIS WILL NOT RETURN HERE 
IPOINT TO ACCESS ENTRY 



IGET ACCESS BITS 

IFILE BEING READ AND WRITTEN ALREADY? 

lYES. THIS WILL NOT RETURN HERE 
INO, SET IT 



ISAME FILE? 

;N0. name WRONG 

;PICKUP EXTENSION FROM USERS ENTER BLOCK 

ICOMPARE WITH LOOKUP EXTENS I ON ( AND PICKUP 

I RETRIEVAL INFORMATION 

lEXTENSION THE SAME? 

INO. EXTENSION WRONG 

)YES, RETRIEVE LATEST RETRIEVAL INFORMATION AND 

ISTQRE CURRENT SUE IN THE 4TH WORD OF TmE 4-WORD 

•ENTER BLOCK (IN CASE SOME OTHER USER HAS APPENDED 

1 DATA TO THIS FILE BETWEEN THE TIME THIS USER DID 

I HIS LOOK-UP AND THIS ENTER,) NOTE: THIS LAST 

; PUSHJ WILL EXIT TO UUOCON--NC)T RETURN HERE! 



IFIND ANOTHER 

iNO WRITERS, PERMIT THIS ENTER 

(MUST BE BEING WRITTEN OR RENAMED 



DSKSRB 



■ ALMOST DEVICE INDEPENDENT DISK SERVICE ROUTINES (BURROUGHS) 
ENTER. LOOKUP, RENAME. CLOSE 
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581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
6>10 
6S11 
6!^2 
6?3 
6{!4 
6^5 
6PI6 
6{"7 
638 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 



P;0PI766 
000767 
000770 
"00771 
000772 
00077J 
000774 
000775 
000776 
000777 
001000 

001001 
001002 
0010CJ 

001004 
001005 

001006 
001007 
001010 

001011 
001012 
001013 
001014 
001015 
001016 

001017 
001020 
001021 
001022 
001023 
001024 



336020 
254000 
201040 
603300 
260140 
621000 
260140 
254000 
254000 
254000 
254000 

201240 
260140 
200040 

350001 
506046 

700600 
200046 
260140 

623000 
254000 
205240 
260140 
254000 
254000 

200106 
205240 
260140 
665100 
621100 
436lfi6 



0014 
4440 
0002 
000 
0000 
0020 
1340 
4402 
4404 
1066 
1004 



ILOOKUP UUO 



EXTERNAL UOLKC.TPDPj 

DFLOOKt SKIPM «»UUO 

JRST 0FER12 
MOVEI TAC.CLSIN 
TLNE DEVUAT.ENTRS 
PUSHJ PDP.UDLKC 
TL? IDS, 10 
PUSHJ POPiSETLF 
JRST DFERR4 
jRST 0FERR7 
JRST DELUKS 
JRST DFLUK3 



000000 DFLUK2i 

002201' 

000002 



000002 
000014 

000747' 

000012 

003316' 



001064' 

200000 

001423' 

004360' 

001064' 

000010 
100000 
001434' 
040000 

040000 
000010 



DFLUK3! 



MOVEI DAT.0 
PUSHJ POP.SETAT 
MOVE TAC.TACl 

AGS TBITS(TaC) 

HKLM TAC,DEVACC(DEVDAT) 

SCHEOULEt 

CONO PI.DSKON 

MOVE TAC,0EVEXT(0EVDAT) 

PUSHJ pdp.setpth 

TLZE lOS.PRCHG 
JRST 0FLUK7 ' 
MOVSI DAT. 200000 
PUSHJ PDP.PFioTEK 
JRST DFERR3 
JRST UFLUK7 



IZERO FILE NAME ? 

I IF SO. ERROR. 

(SUPPRESS INPUT CLOSE IF UDLKC IS CALLED 

lENTER DONE YET? 

ICLOSE OUTPUT 

I INPUT STATE 

IRETURNS WITH PP ON PDL 

)N0 UFD, CLOCK ON 

IND FILE. CLOCK ON, 

IFILE BEING WRITTEN 

(FILE BEING READ 



(BUILD AN ACCESS ENTRY 
(TACTACl ""OINT TO ACCESS ENTRY 

(INCREMENT RCOUNT 

(STORE POINTER TO ACCESS ENTRY 



(FIRST RIB# 

(GET IN THE RETRIEVAL INFO 

(PROTECTION CHANGE FAILURE? 
(YES. ERROR RETURN 
(READ PROTECTION BIT 
(READ PROTECTED? 
(NAME WRONG 
(PROTECTION FAILURE 



MOVE TACl.DEVOADCDEVOAT) (CHECK WRITE PROTECTION FOR 

MOVSI OAT, 100000 (POSSIBLE SUBSEQUENT ENTER 

PUSHJ POP.PFjOTKX 

TLOA TACl.WPRO (WRITE PROTECTED. SET FLAG 

TL? TACl.WPRO (WRITE OK--RESET FLAG 

lORM TACl.DEVOADCOEVDAT) 
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623 


C101025 


205046 


000023 


b?t 








6?5 


1201026 


700600 


000742' 


6?6 


001027 


541060 


000014 


627 


i?01030 


200100 


000001 


628 


001031 


251042 


000002 


6?9 








630 


001032 


700600 


001006 ' 


631 


001033 


574046 


000026 


632 


(101034 


271600 


000003 


633 


001035 


616060 


000014 


634 


001036 


275600 


000003 


635 


001037 


217000 


000001 


636 


001040 


542046 


000015 


637 


001041 


621300 


002000 


638 


001042 


205040 


100000 


639 


001043 


412046 


000010 



DFLUK4! IIJOVSI TAC,PTR1(DEV0AT) .COPY INFO TO LOOKUP PARAMETER BLOCK 
CONO PI.DSKOFF 

^nul t^^.'*t'^° (DESTINATION IS UUO PARAMETER BLOCK 

MOVE TACl^TAC 

SCHEOULEt'^*"' 'BLT NAME, EXT, PROTECTION, ETC FROM DDB TO USER 

CONO PI.DSKON 

HLRE TACFPNTRKOEVDAT) IFILE LENGTH (USUALLY -NOROS) 
ADD! UUO ( 3 

cnof'^unn'^i''^'^'' 'SET UP 4TH WORD OF DIRECTORY HDR. 

SUei UUO, 3 IRESET UUO 

"°^^5 ^*C isET FILE SI?E (WORDS) IN DOR 

HRRM TAC,DEVCNT(DEVDAT) 

TL? DEVDATiICLOSB 

MOVSI TACiVRGPTR IPOINTERS DO EXIST ON THE DISK SO 

ANDCAM TAC,DEVOAO(DEVOAT) ICLEAR THE V IRG I N PQ I NTERS FLAG . 



DSKSRB 



610 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 

659 
660 
561 
662 
663 
664 
665 
566 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 



- ALMOST DEVICE 
ENTER, LOOKUP, 



INDEPENDENT DISK SERVICE ROUTINES (BURROUGHS) 
RENAME, CLOSE 



MACRO, V36 19:05 4-JUN-69 PACE 29 



001044 201246 000027 ALLOK: MOVE! DAT ,FPNTR (DEVD4T ) ISKIP FILE INFO IN FIRST RIB 

001045 542246 000014 HRRM OAT , DEVACC ( DEVDAT ) ISET VERTICAL POINTER POINTER 

001046 201040 000001 MOVEI TAC.l 

001047 542046 000022 HRRM TAC , SETCNT t DEVDAT 1 I "PO I S I TONED" AT RELATIVE BLOCK 1 OF FIL"^ 

001050 205040 637760 MOVSI TAC . 777760-WPRO-VRGPTR iCLEAR FLAGS 

001051 412046 000010 ANDCAM T AC . DEVOAD ( DEVDAT ) 

IFG CHKCNT,< 

JTO GET AROUND CHECKSUM FAILURE WHILE READING DUMP FILES IN NON-DUMP .MODE 

001052 135100 004601' LDB TACl.CPOINT 4 , -2 ( DAT ) , 12] 

001053 305100 000015 CAIGE TAC1.15 lIS FILE IN DUMP MODE? 

001054 254000 001061' JRST ALLXIT INO 

001055 135100 004602' LDB TACl, [POINT 4 , DEV I OS ( DEVDAT ) , 35 ] 
001055 205040 010000 MOVSI TACCKSUPR 

001057 305100 000015 CAIGE TAClilS IIS CURRENT MODE DUMP? 

001060 436045 000010 lORM TAC , DEVOAD ( DEVDAT ) INO. SUPPRESS CHECKSUM 



001061 262140 000001 



001062 
001063 



001064 
001065 



001066 
001067 
001070 



001071 
001072 
001073 
001074 
001075 

001076 
001077 
001100 
001101 



> 

ALLXIT: 



3500E3 
254000 



250140 

254000 



260140 
254000 
254000 



201054 
661040 
200060 
312040 
253140 

200200 
430044 
507040 
263140 



000000 
003654' 



POP POP. TAC 

ADS (PDP) 
JHST CLRBUF 



001603' DFLUK7: PUSHJ PDP,0FCL21 
004400' JRST DFERR5 

JFILE IS BEING WRITTEN 



002157' 

001001' 
001004' 



000003 
000007 
000001 
000000 
000000 

000723' 
000724' 
777777 
000000 



DFLUK8: PUSHJ PDP,SCNAT2 
JRST DFLUK2 
JRST DFLUK3 

ITEST FOR MFD ALTERATION 

EXTERNAL SVSPP , JOB .PR JPRG 

ALTMFD: MOVEI TAC,3(UU0) 
TLO TAC, PROG 
MOVE TAC.^TAC 
CAME TAC.SYSPP 
POPJ PDP, 

MOVE ITEM, JOB 

XOR TACPRJPRGl ITEM) 

TLNN TAC,-1 

POPJ POP, 



IREMEMBER 0(PDP) WAS XWD PROJiPROG 

IRETURN TO CALL*2 
(RELEASE MONITOR BUFFER 

IPPOTECTION FAILURE, CLEAR ACCESS 



ILOOK FOR ANOTHER 

INO MORE 

IFOUNO WHAT MUST BE READ 



US PROJ. PROG. = 1,1? 

•RELOCATE 

IXWD PROJ, PROG 

INO, RETURN 



IPRIVILEGEO USER? 
lYES. RETURN 



^01102 254000 004400' 



JRST 



DFERR5 



DSKSdB - ALMflST DEVICE INDEPENDENT DISK SERVICE ROUTINES (BURROUGHS) 
FNTER. LOOKUP. RENAME, CLOSE 

JRENAME UUO 



MACRO, V36 19:05 4-JllN-6'5 PAGE SrJ 



687 

68B 

689 

6515 

691 

692 

693 

691 

695 

696 

697 

69B 

699 

7PI0 

701 

7!»2 

7?!3 

7f4 

7P5 

7(^6 

7fi7 

T^S 

7l?i9 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 



;)011513 
001104 
001105 

001106 
001107 
001110 
001111 
001112 
001113 
001114 
001115 
C01116 
001117 
001120 

001121 
001122 
001123 

001124 
001125 



260140 

263140 
2540!?0 

336006 
254000 
661000 
205040 
412046 
271600 
260140 
254000 
254000 
254000 
25400(1) 

201240 
260l4i;^ 
200040 

350001 
506046 



001126 700600 



001127 
001130 
001131 
001132 
001133 
001134 
001135 
001136 
001137 
001140 
001141 
001142 
001143 
001144 
001145 
001146 
001147 
001150 



550046 
260140 
201660 
201046 
200655 
430641 
621000 
607640 
254000 
205240 
26014H 
254000 
661000 
205240 
260140 
254B!»0 
25401^0 
621000 



001106' 
000000 

000467' 

000011 

004436' 

000020 

020000 

000010 

000003 

001352' 

004402 ' 

004404' 

004372' 

001124' 

000000 

002201' 

000002 



EXTERNAL CPOPJl 

EXTERNAL THSDAT 

DFRENi PUSHJ POP.DFRENX 
POPJ POP, 
JRST CPOPJl 



DFRENXI 



SKIPN DEVFILCDEVDaT) IIS THERE AN OLD FILE? 

JRST DFERll INO, UNDEFINED FILE 

TLO lOS.IO JYES. LOOK FOR THE FILE 

MOVS! TACiRENBIT (RESET BIT 

ANDCAM TAC.OEVOAn(DEVDAT) 

ADDI UUO, 3 (POINT TO XWD PROJ.PROG 

PUSHJ PDP,SETLE9 (RETURNS HITH PP ON PUL 

JKST DFERR4 (NO UFO, CLOCK ON 

JRST DFERR7 (NO SUCH FILE, CLOCK ON, 

JRST DFERR6 (FILE BEING WRITTEN 

JR-^T DFRENl (ALREADY HAS ACCESS ENTRY 



MOVEI DAT,0 
PUSHJ PDR.SETAT 
MOVE TAC.TACl 



(BUILD ACCESS ENTRY 

ITAC.TACI POINT TO ACCESS ENTRY 



000002 DFREMI AOS TBITS(TAC) (INCREMENT RCOUNT 

000014 HRLM TAC,DEVACC(DEVDAT) (SAVE POINTER TO ACCESS ENTRY 

SCHE"ULEt 
001032' CONO PI.DSKON 



000012 

003316' 

000014 

000023 

000002 

000002 

020000 

777000 

001144' 

400000 

001434' 

001310' 

020000 

100000 

001423' 

004360' 

001306' 

020000 



MOVEI 


TAC 


PTRKO 


MOVE 


ACl 


2(AC1) 


XOR 


ACl 


2(TAC) 


TLH 


IQS 


PRCHG 


TLNN 


ACl 


777000 



HRR2 TAC,DEVEXT{nEVOAT) (CAN THIS FILE BE RENAMED? 
PUSHJ POP.SETPTR (HEAD IN FIRST SET OF RETRIEVAL POINTERS 
MOVEI AC1,9UU0 IIS THE PROTECTION TO BE CHANGED ? 
TACPTRKOEV^AT) (POINT TO RETRIEVAL INFO IN DOB 
(USER SPECIFIED PROTECTICIN 
(COMPARE KITH STORED PROTECTION 

(ANY DIFFERENCES? 

lYESi CAN IT BE? 

(NO, ERROR 

(YES 

(CAN THIS FILE BE RE-WRITTEN? 

(BAD RETREIVAL INFO 
(WRITE PROTECTED 
(ARBITRARY CHANGE OK. 



JRST DFRN2A 
MOVSI DAT, 400000 
PUSHJ PDP,PROTKX 
JRST DFREN8 
TLO IDS, PRCHG 
DFRN2AI MOVSI DAT. 100000 
PUSHJ POP.PROTEK 
JRST DFERR3 
JRST 0FRN8A 
TL2 IDS, PRCHG 



DSKSRB 



".NU«rLC°^Kip'f pSraJsE^' ^"^'" '°''''" (BURROUGHS. 



MACRO, V36 19!05 4-JUN-69 PAGE 3t 



III Zllll ...,,, ,,,,36. °"'''" c^SNTp^r^L'orr 

737 ,01152 260140 002143- pSsSj PoS^^aLt 

738 (,01153 254,00 0,1162- JRS^-^oPrnIb J^g*^ *'"" ^*^'^ ^""^ BEGINNING 

740 001154 200241 0000,2 OFRNIAI MflUr nar toitc,t.„, 

741 ,01155 602240 50,000 ^^*' '°^^ dat'I?^!?^ '^' '^"' ^^''^'^ ALTERED? 

742 001156 254000 001312- jRST OFRrN? ""^^ ^^'^"^ CREATED OR RENAMED? 

743 001157 260140 002157- PUSHJ POP SrKiir, '^"' ''°^ L°SE. 

744 001160 254000 001162' JRST HFRmir ^ "^°' CONTINUE SCANNING 

745 001161 2540,0 ,01154- jrIt ^FRnU 

I iiili; iH; =•■• """"■ ='i:;;i-!!ii;::r°"' '^^"" ■" """ ""»'"" -- "- 

751 001165 700600 001126- Co'nq"p U oSKQN 



DSKSRB - ALMOST DEVICE INDEPENDENT DISK SERVICE R3UTINES (SUPRnUGNS) MACRO. V35 19105 4.-JUN-69 PAGE 3? 
ENTER. LOOKUP. RENAME. CLOSE 

MOVE TAC.^UUO IGET NEW FILENAME 

CAME TAC,DEVF-IL(DEVDAT) ISAME AS 006? 

JRST 0FREN3 ) NO 

ADOI UUC.l lYES, SAME EXTENSION? 

MOVE TAC.SUUO INEW EXTENSION 

XOR TAC,OEVEXT(DEVDAT) ICOMPARE WITH DDB? 

TLNE TAC,-1 ISAME? 

SOJA UU0.DFREN3 INO 

iFlLENAME AND EXTENSION ARE IDENTICAL, CHANGE ONLY PROTECTION 

TLH lOS.PRCHG ICLEAH PRTOECTION CHANGE FLAG 

ADOI UUO.l lYES. CHANGE PROTECTION 

LDS ACl.CPOINT 9,»UU0.6] (NEW PROTECTION 

MRRZ TAC1,DSKBUF(DEVDAT) (POINT TO BUFFER, CONT A I N I NG RETRIEVAL INFO 

AODI TACl.2 (POINT TO PROTECTION 

TLNN lOS.UBFS (BUFFER IN MONITOR CORE? 

TLO TACl.PROG (NO, RELOCATE, 

DPB ACl.CPOINT 9,»TAC1.S3 (STORE NEW PROTECTION IN RIB 

PUSHJ POP.WRl ;RE-WRITE THE BLOCK 

AOS -KPdP) (LEAVE 

POP PDP.TAC 

PUSHJ PDP.CLRBUF (CLEAR ANY DUMP BUFFER 

jRST DFCL21 (CLEAR ACCESS ENTRY AND EXIT 

TLZE lOS.PRCHG (IS ONLY PROTECTION CHANGE PERMITTED? 

JRST DFREN8 (YES. ERROR SINCE TRYING TO CHANGE NAME.FXT 

POP PDP.TAC (BACK UP PDP 

PUSHJ PDP.ALTMFO (ALTERING MFD? 

SKIPN »UUO (RENAMING TO (I.E. DELETING)? 

JRST 0FREN7 (YES 

MOVE TAC,DEVACC(OEVOAT> (SAVE INFO ON OLD FILE THAT WILL 8E CHANGED BY SETLl' 

HLR TAC,SETCNT(DEVDAT) (BLOCK* OF UFD RIB 

PUSH PDP.TAC (SAVE XWD ACCESS POINTER, BLOCK* 

MOVE TA,DEVEXT(DEVDAT) (SLOCKS OF FIRST FILE RIB 

HLL TA,DEVCNT(DEVDAT) (RELATIVE TO UFD BLOCK* 

MOVE TB.DEVFlL(DEVnAT) (HOLD FILE NAME 

MOVSI TAC.RENBIT 

ORM TAC.DEVOAD(DEVDAT) (FOR "SETLE" 

PUSHJ PDP.SETLE0 (LOOK FOR THIS NEW FILE NAME 

JRST DFERR4 (NO UFO (SHOULD NOT HAPPEN) 

JRST DFREN5 (NEW FILE NOT THERE 

JFCL (NEW NAME ALREADY THERE. ERROR. 

JFCL 

POP PDP.TAC 

SCHEDULEf 

CONO PI.DSKON 

PUSHJ PDP.0FCL21 



752 


001166 


200060 


000014 


753 


001167 


312046 


000011 


754 


001170 


254000 


001213' 


755 


001171 


271600 


000001 


756 


001172 


200060 


000014 


757 


001173 


430046 


000012 


758 


001174 


603040 


777777 


759 


001175 


364600 


001213' 


7A0 








761 








762 






(FILENA 


763 








764 


001176 


621000 


020000 


765 


001177 


271600 


000001 


766 


001200 


135640 


004603' 


767 


001201 


550106 


000020 


768 


001202 


271100 


000002 


769 


001203 


607000 


000200 


770 


001204 


661100 


000007 


771 


001205 


137640 


004604' 


772 








773 


001206 


260140 


003274' 


774 








775 


001207 


350003 


777777 DFREXTi 


776 


001210 


262140 


000001 


777 


001211 


260140 


003654' 


778 


001212 


254000 


001603' 


779 








790 


001213 


623000 


020000 DFREN3I 


791 


001214 


254000 


001310' 


782 


001215 


262140 


000001 


7B3 


001216 


260140 


001071' 


784 


001217 


336020 


000014 


785 


001220 


254000 


001315' 


786 








787 


001221 


200046 


000014 


788 


001222 


544046 


000022 


789 


001223 


261140 


000001 


790 


001224 


200506 


000012 


791 


001225 


500506 


000015 


792 


001226 


200546 


000011 


793 








794 


001227 


205040 


020000 


795 


001230 


436046 


000010 


796 


001231 


260140 


001342' 


797 


001232 


254000 


004402' 


798 


001233 


254000 


001242' 


799 


001234 


255000 


000000 


800 


001235 


255000 


000000 


801 


001236 


262140 


000001 


ac2 








803 


001237 


700600 


001165' 


804 


001240 


260140 


001603' 



OSKSRB - ALMOST DEVICE INDEPENDENT DISK SERVICE ROUTINES (BURROUGHS) 
ENTER. LOOKUP, RENAME, CLOSE 



MACRO, V36 19:05 4-JUN-69 PAGE, 32-1 



805 001241 25400B 004434' 



JRST DFER10 



DSKSRB - ALMOST DEVICE INDEPENDENT DISK SERVICE ROUTINFS (BURROUGHS) 
ENTER. LOOKUP. RENAME, CLOSE 



MACRO, V36 19!05 4-JUN-69 PAGE 33 



8H6 
807 
ai«6 
809 
610 
811 
812 
813 
814 
815 
816 
817 
818 
819 
830 
831 
8?2 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 



SALTER RETRIEVAL INFORMATION 
f101242 262140 000005 0FREN5! POP POP. DAT 



001243 

1^01244 
001245 

001246 
001247 
001250 
001251 
001252 
001253 
001254 

001255 
001256 
001257 
001260 
001261 
001262 
001263 
001264 
001265 
001266 
001267 
001270 
001271 
001272 



IBACK UP POP 



202546 000011 
54255^6 000012 
502506 000015 



200043 
502046 
506046 
550040 
206046 
260140 
260140 

200060 
202060 
271100 
271600 
200060 
502046 
200060 
540040 
435040 
202060 
271100 
271600 
135040 
137040 



000000 

000014 

000022 

000012 

000016 

003263' 

003314' 

000014 

000002 

000001 

000001 

000002 

000012 

000014 

000716' 

400000 

000002 

000001 

000001 

004603' 

004604' 



MOVEM TB,DEVFIL(DEVDAT) (RESTORE OLD FILE NAME TO ODB 
HRRM TA.nEVEXT(DEVOAT) JRESTORE BLOCK# OF RIB 
HLLM TA.OEVCNTtDEVDAT) IRESTORE UPQ RELATIVE BLOCK 

MOVE TAC,(PDP) IXWD ACCESS POINTER, BLOCK# 

HLLM TAC,OEVACC(OEVDAT) (RESTORE POIMTER TO ACCESS ENTRY 

HRLM TAC,SETCNT(OEVDAT) (RESTORE BLOCK* OF UFO RIB 

MRR2 TACTA 

MOVSM TAC,OEVBLK(DEVOAT) (RESET BLOCK*, INDEX TO RETRIEVAL POINTERS 

PUSHJ PDP.RRIA (GET RETRIEVAL INFO BLOCK 

PUSHJ POP,SET000 (POINT TACl TO WORD 



(GET NEW NAME 
(STORE IN RIB 
(CHANGE EXTENSION 



MOVE TAC,*UUO 

MOVEM TAC.STACl 

ADDl TACl,l 

ADDI UU0,1 

MOVE TACdTACl (GET OLD EXTENSION 

HLLM TAC,DEVEXT(DEVDAT) (RESET EXTE,\SION IN DDR 

MOVE TAC.9UU0 (NEW EXTENSION 

HRR TAC.THSOAT (AND ACCESS DATE 

ORI TAC. 400000 (INSURE IT IS NON-ZERO 

MOVEM TAc.STACl (STORE IN RIB 

ADDI TACl.l (CHANGE PROTECTION 

ADDI UUO.l 

LDB TACCPOInT 9,»UU0,e] (GET NEW PROTECTIOI>J 

DPS TACCPOINT 9,fiTACl,8J (STORE IN RIB 



001273 260140 003274' 



PUSHJ PDP,WRI 



(RE-WRITE RIB 



DSKSRB - ALMOST DEVICE INDEPENnENT DISK SERVICE ROUTINES (BURROUGHS) MACRO. V35 19:B5 4-JUN-69 PAGE 34 
ENTER, LOOKUP. RENAME. CLOSE 

SALTER UFO BLOCK 

PUShJ PDP.FINDE (BRING IN CORRECT BLOCK 

SU8I UUO.l (REPLACE EXTENSION IN UFO 

MOVE TAC,»UyO 

HLLM TAC.STACa 

SUBI UUO.l (AND NAME 

SUBI TACl.l 

MOVE TAC.aUUO 

MOVEM TAC.i?TACl 

PUSHJ PDP.WUFD (RE-WRITE THE BLOCK 

JRST DFREXT (LEAVE 

(FILE COULD NOT RE RENAMED BECAUSE OF PROTECTION 

DFRN8A( TLNE lOS.PRCHG (PROTECTION CHANGE? 

JRST DFREN2 (YES 

0FREN8( PUSHJ POP,0FCL21 (TAKE OUT ACCESS ENTRY 
JRST DFERR5 (AND LEAVE 

(FILE COULD NOT BE RENAMED BECAUSE IT WAS BEING CREATED, 

DFREN9( SCHEOULEt 

CONO PI.DSKON ' 

PUSHJ PDP.DFCLZl (TAKE OUT ACCESS ENTRY 
JRST DFERR6 



878 








839 








840 


001274 


260140 


0017201 


841 








842 


001275 


275600 


000001 


843 


001276 


200060 


000014 


844 


001277 


502060 


000002 


845 


001300 


275600 


000001 


646 


001301 


275100 


000001 


847 


001302 


200060 


000014 


848 


001303 


202060 


000002 


849 








850 


001304 


260140 


002105' 


851 


001305 


254000 


001207' 


852 








853 








854 








855 


001306 


603000 


020000 


856 


001307 


254000 


001151' 


857 


001310 


260140 


001603' 


858 


001311 


254000 


004400' 


859 








860 








861 








862 


001312 






863 


001312 


700600 


001237' 


864 


001313 


260140 


001603' 


865 


001314 


254000 


004372' 



dsksrb - almost device independent disk service routines (burroughs) macro, v36 19i05 4-jun-69 page 3"; 
enter. lookup, rename. close 

:te a file from a ufd 

ifino the correct block 



IDESTINATION 

(SOURCE IS ENTRY BEYOND DESTINATION 



(SET LIMIT OF BLT 
•BUFFER IN MONITOR ONE? 
INO, RELOCATE 

IMOVE SOME WORDS UP (ONE TOO MANY BECAUSE 
) COULD BE DELETING 64TH ENTRY IN UFD BLOCK) 

IMAKE SURE OF ?ERO 



)RE-WRITE 

ISKIP RETURN 

IPOINT TO ACCESS ENTRY 

ISET TO DELETE WHEN THROUGH READING 
ICLOSE ACCESS ENTRY AND LEAVE 



866 








lOELETE A FILE FROM A UFD 


867 










868 


001315 


260140 


001720' 


DFREN7I PUSHJ PDP.FINDE 


869 










870 








NOSCHEDULE f 


871 


001316 


700600 


001151' 


CONO PI.DSKOFF 


872 


001317 


201120 


000002 


MOVEI TACliSTAOl 


873 


001320 


275100 


000001 


SUBI TACl.l 


874 


001321 


505102 


000002 


HRLl TAC1.2(TAC1) 


875 










876 


001322 


550706 


000020 


HRR2 AC2,DSKBUF(DEVr 


877 


001323 


271700 


000176 


ADDI AC2,BLKSIE-2 


878 


001324 


607000 


000200 


TLNN lOS.UBFS 


879 


001325 


271707 


000000 


ADDI AC2,(PR0G) 


880 










881 


001326 


251116 


000000 


RLT TAC1,(AC2) 


882 










883 










884 


001327 


402020 


000016 


SETZM »AC2 


885 


001330 


402016 


000001 


SET2M 1(AC2) 


886 








SCHEDULE' 


887 
888 


001331 


700600 


001312' 


CONO PIiDSKON 


889 


001332 


260140 


002105' 


PUSHJ PDP.WUFD 


890 


001333 


350003 


000000 


ADS (POP) 


891 


001334 


554046 


000014 


HLR2 TAC,DEVACC(DEVDAT) 


892 


001335 


201100 


200000 


MOVEI TACliDTBIT 


893 


001336 


436101 


000002 


lORM TAC1,TBITS(TAC) 


894 


001337 


254000 


001603' 


JRST 0FCL21 



DSKSRB - ALMOST DEVICE INDEPENDENT DISK SERVICE ROUTINES (BURROUGHS) 
ENTER. LOOKUP. RENAME. CLOSE 



MACRO, V36 19125 4-JUN-59 PAGC 36 



895 
896 
897 
698 
899 
9130 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 

914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 



001340 
001341 

001342 
001343 
001344 
001345 

001346 
001347 
001350 
001351 
001352 
001353 
001354 
001355 
001356 
001357 
001360 
001361 
001362 
001363 



205040 
412046 

202006 
661600 
200660 
202646 

271600 
510660 
202646 
271600 
200200 
337260 
200244 
603300 
200240 
202260 
202246 
275600 
250243 
261140 



020000 

000010 

000002 
000007 
000014 
000011 

000001 

000014 

000012 

000002 

0010761 

000014 

001077' 

000100 

001074' 

000014 

000013 

000003 

000000 

000005 



(SET UP ARGUEMENT LIST FOR LOOKUP. ENTER, AND RENAME 

(SEARCH THRU MFD AND UFD FOR THE FILE-NAME, 

(EXIT TO CALL+1 IF A UFD CANNOT BE FOUND, 

(EXIT TO CALL+2 IF THE FILE IS NOT FOUND. 

(EXIT TO CALL+3 IF FILE IS BEING WRITTEN 

(EXIT TO CALL*4 IF FILE IS BEING READ 

(EXIT TO CALL+5 IF THE FILE DOES NOT HAVE ACCESS ENTRY, 



(UPON EXIT, 



(POP) » OWNER PROJ,-PROG, NUMBER 



EXTERNAL SYSPP . JOB.PR JPRG , CP0PJ2 , CPOP Jl 

SETLEI MOVSI TAC.RENBIT (TURN OFF THE FLAG 
ANOCAM TaC.DEVOADIDEVOAT) 

SETLE0I MDVEM I OS , DEV lOS (OEVOAT ) 
TLO UUO.PROG 

MOVE AC1.9UU0 (PICK UP FILE NAME 

MOVEM AC1,0EVFIL(DEVDAT) (STORE FILE NAME AND EXT IN DOB 

AOOI UUO.l 
HLLZ AC1,»UU0 
MOVEM ACl.DEVEXKDEVDAT) 
ADDI UU0,2 
SETLE9I HOVE ITEM, JOB 
SKIPG DAT.^UUO 
MOVE 0AT,PRJPRG{ITEM) 
TLNE DEVOAT.SYSDEV 
MOVE DAT, SYSPP 
MOVEM DAt.9uU0 

MOVEM DAT.OEVPPNCDEVOAT) (SAVE PRJ.PRG FOR USE BY UUOCON 
SUBI UU0,3 (UUO POINTS TO FILE NAME 

EXCH DAT,(PDP> (PUT PP-NUMBER IN PD LIST 

PUSH POP, OAT (POP POINTS TO CALL*! 



(UUO POINTS TO PP 

(TRY CURRENT JOS PP. 

(IS IT A PP? 

(NO. GET PP FROM TABLE. 

(SYSTEM DEVICE? 

(YES, USE SYSTEM (CUSP) PROJ.PROG * 



OSKSRB - ALMOST DEVICE INDEPENDENT DISK SERVICE ROUTINES (fiURROUGHS) 
ENTER. LOOKUP, RENAMEi CLOSE 

(SEARCH MFO FOR THE OWMER OF THE FILE 
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9?8 








9?9 








93B 


001364 


200243 


777777 


931 


001365 


205640 


654644 


932 


001366 


200040 


000000' 


933 


001367 


260140 


001634' 


934 


001370 


263140 


000000 


935 








936 








937 








938 


001371 


35B003 


000000 


939 


001372 


271040 


000001 


910 


001373 


550060 


000001 


941 


001374 


506046 


000022 


942 


001375 


402006 


000015 


943 


001376 


200646 


000012 


944 


001377 


260140 


001704' 


945 


001400 


263140 


000000 


946 








947 


001401 


271040 


000001 


948 


001402 


200760 


000001 


949 


at)1403 


542746 


000012 


950 


001404 


350003 


000000 


951 


001405 


200703 


777777 


952 








953 


001406 


700600 


001316' 


954 


001407 


250140 


002144' 


955 


001410 


254000 


000000 


956 


001411 


200241 


000002 


957 


001412 


602240 


400000 


958 


001413 


263140 


000000 


959 


001414 


606240 


100000 


960 


001415 


254000 


001105' 


961 


001416 


200046 


000010 


962 


001417 


603040 


020000 


963 


001420 


262140 


000001 


964 


001421 


262140 


000001 


965 


001422 


254000 


004372' 



MOVE DAT.-KPDP! 

MOVSI ACl, (SIXRIT/UFO/) 

MOVE TACMFOBLK 

PUSHJ PDP,DIRSRC 

POPj POP, 

ISEARCH UFD FOR THE FILE 

AOS (POP) 

4DDI TAC.l 

HRRZ TAC,ii>TAC 

HRLM TAC,SETCNT(OEVOAT) 

SET2M DEVCNT(QEVDAT) 

MOVE AC1,DEVEXT{DEVDAT) 

PUSHJ PDP.DSRC10 

PDPJ POP, 



IXWQ PROJ.PROG 
(EXTENSION "UFD" 
I8L0CK# OF MFO RIB 

lUFD NOT THERE 



IPOP POINTS TO CALL+2 

(POINT TO XWO SIXBIT/EXT/, BLOCK* 

(BLOCK* OF UFD RIB 

(SAVE 8l0CK# 

ILH WILL BE USED TO COUNT UFD BLOCKS 

(SEARCH UFD 
(FILE NOT THERE 

(POINT TO XWO SIXBIT/EXT/,RLOCK# 



ADOI TAC.l 

MOVE AC3,9TAC 

HRRM AC3,DEVEXT(DEVDAT) (SAVE BLOCK* OF FIRST RIB 



ADS (POP) 

MOVE AC2,-1(P0P) 

NOSCHEDULEt 

CONO PI.DSKOFF 

PUSHJ PDP,SCNAT0 

JRST CP0PJ2 

MOVE DAT,T8ITS(TAC) 

TRNE DAT,WTBIT 

POPJ POP, 

TRNN DAT,RTBIT 

JRST CPOPJl 



(PDP POINTS TO CALL+3 
(XWD PROJ.PROG 



(LOOK IN ACCESS TABLE 

(NOT THERE, RETURN TO CALL*5 

(RENAMING? 

(BEING WRITTEN? 

(YES. RETURN TO CALL*3 

(NO, ALL OK, RETURN TO CALL*4 



MOVE TAC,DEV0AD(DEV04T) (ARE WE RENAMING? 

TLNE TACRENBIT 

POP PDP,TAC (YES 

POP PDP.TAC 

JRST DFERR6 



DSKSRB - ALMOST DEVICE INDEPENDENT DISK SERVICE ROUTINES (BURROUGHS) MACRO, V36 19105 4-JUN-69 PAGE 38 

ENTER. LOOKUP. RENAME. CLOSE 

966 (CHECK RETRIEVAL INFO FOR ELIGIBILITY 

967 lENTER WITH C(DAT) = PROTECTION TO CHECK IN BITS 0-2 

968 (EXIT TO CALL+1 IF NAME OH EVTENSION WRONG 

969 lEXIT TO CALL*2 IF PROTECTION WRONG 

970 (EXIT TO CALL+3 IF ALL OK 
971 

972 EXTERNAL JOB , PR JPRG , CPOP Jl , Dl'MPPP 
973 

974 001423 201046 000023 PROTFKt MOVEI TAC .PTRl t DEVOAT 1 (POINT TO RETRIEVAL INFO 

975 001424 200660 000001 MOVE ACL^TAC (NAME OK? 

976 001425 312646 000011 CAME ACl , DEVF IL ( DEVDAT ) 

977 001426 263140 000000 POPJ POP, INO 
97B 001427 510706 000012 HLLE AC2 , DEVEXT ( DEVDAT ) 

979 001430 510641 000001 MLLii ACl.KTAO (EXTENSION FROM RIB 

980 001431 312640 000016 CAME AC1,AC2 

981 001432 263140 000000 POPJ POP, (EXTENSION NOT RIGHT 
982 

983 001433 350003 000000 AOS (PDP) 

984 001434 200643 777777 PROTKX; MOVE AC1,-1(PDP) 

985 001435 200200 001352" PROTkY( MOVE ITEM. JOB 

986 001436 430644 001354' XOR ACl . PR JPRG f I TEM ) 

987 001437 606640 777777 TRNN AC1,-1 ISAME PROGRAMMER? 

988 001440 254000 001444' JRST PROTl lYES 
989 

990 001441 241240 777775 ROT DAT, -3 (ROTATE TO PROJECT FIELD 

991 001442 603640 777777 TLNE AC1,-1 (NO, SAME PROJECT? 

992 001443 241240 777775 ROT DAT. -3 (NO, ROTATE TO UNIVERSAL FIELD 
993 

994 001444 621240 600000 PROTll TL? DAT, 600000 (DO NOT TEST OWNER READ OR PROTECT PROTECTION 

995 001445 616241 000002 TONN 0AT,2(TAC) 

996 001446 254000 001415' jRST CPOPJl IPROTECTION O.K. 

997 001447 200644 001436' MOVE ACl . PR JPRG ( I TEM ) 

998 001450 316640 000000 CAMN ACl.DUMPPP (EQUAL TO DUMPPER PROJECT 

999 (PROGRAMMER NUMBER? 

1000 001451 350003 000000 AOS (PDP) (YES, ALL FILES AVAILABLE 

1001 001452 263140 000000 POPJ PDP, 



OSKSRB 


- ALMOST 


DEVICE 


INOEPEND 


ENT DISK SERVICE ROUTINES (RIJi'RP 




ENTER, 


LOOKU?! 


RENAME. 


CLOSE 


10P)2 








(CLOSE UUO 


10(13 








JCLOSL AM OUTPUT FILE 


1004 










1005 








EXTERNAL PIOMQD.WAlTliOUT 


1306 










1007 


001453 


607300 


020000 


DFCLSOl TLNN OEVOAT.ENTRB 


1008 


001454 


263140 


000300 


POPJ POP, 


1009 


001455 


554046 


000014 


ULR? TAC,DEVACC(DEVOAT) 


iai0 








IFN FTRCHK,< 


1011 


001456 


336000 


000001 


SKIPN TAC 


1012 


001457 


2542S<0 


001457' 


HALT , 


1013 








> 


1014 


001460 


200041 


000002 


MOVE TAC,TB1TS(TAC) 


1015 








IFN FTRCHKi < 


1016 


001461 


606040 


030000 


TRNN TAC,ATCLO*RMTBIT 


1017 


001462 


2542110 


001462' 


HALT , 


1018 








> 


1019 


001463 


135040 


000000 


LOB TAC.PIOMOD 


1020 


001464 


305040 


000016 


CAIGE TAC. OR 


1021 


001465 


6033^0 


000020 


TLNE DEVOAT.OSKRLS 


1022 


001466 


254000 


001506' 


JRST DFCL2 


1023 


001467 


554046 


000006 


HLR2 TAC,DEVBUF[DEVDAT) 


1024 










1025 


001470 


661040 


000007 


TLO TAC. PROG 


1026 


001471 


337120 


000001 


SKIPG TAC1.*TAC 


1027 


001472 


254000 


001506' 


JRST 0FCL2 


1028 


001473 


350000 


000001 


AOS TAC 


1029 


001474 


270100 


004605' 


ADD TACl.CXWD PROG.l] 


1030 










1031 


001475 


550660 


000001 


HRRZ AC1,»TAC 


1032 


001476 


332000 


000015 


SKIPE ACl 


1033 










1034 


001477 


275642 


000000 


SUBI AC1,(TAC11 


1035 


001500 


6020?I0 


000020 


TRNE lOS.IOWC 


1036 


001501 


550660 


000002 


HRR2 AC1,»TAC1 


1037 










1038 


0015(^2 


336000 


000015 


SKIPN ACl 


1039 


001503 


254000 


001506' 


JRST DFCL2 


1040 


001504 


260140 


000000 


PUSHJ POP. OUT 


1041 


001505 


260140 


000000 


PUSHJ PDP.WAITl 


1042 










1043 


001506 


260140 


003620' 


DFCL2! PUSHJ PDP.SETBUF 


1044 


001507 


661000 


002100 


TLO lOS.NMPINCTRLC 


1045 


001510 


2020-^6 


000002 


MOVEM IOS.DEVlOS(DEvnAT 


1046 


001511 


260140 


003131' 


PUSHJ PDP.DF04A 


1047 


001512 


554646 


000016 


HLR2 ACl.OEVBLKIOEVDAT) 


1043 


001513 


430646 


000012 


XOR ACl.DEVEXT(aEVDAT) 


1049 


001514 


602640 


777777 


TRNE ACl.-l 


1050 


001515 


260140 


003261' 


PUSHJ PDP.RRIB 


1051 


001516 


260140 


003314' 


PUSHJ PDP.SET000 


1052 


001517 


271100 


000003 


ADDI TAC1,3 


1053 


001520 


210646 


000015 


MOVN AC1,0EVCNT(DEVDAT) 


1054 


001521 


506660 


000002 


HRLM ACl.fTACl 
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lENTER DONE VETt 

)N0, FORGET IT 

ISHOULO Wt CLOSE? (POINT TO ACCESS ENTRY) 

lACCESS TABLE POINTER EXISTS? 

IIF NOT, HALT, NO RE-START POSSIBLE. 



(CREATION OR UPDATE OF FILE IN PROGRESS? 
)N0, ERROR. CAN'T CONTINUE 



IDUMP MODE? 

(RESET UUO IN PROGRESS? 

lYES TO EITHER QUESTION 

INC. GET ADDRESS OF OUTPUT 

I BUFFER HEADER BLOCK, 

(RELOCATE 

(VIRGIN BUFFERS (NO RING SET-UP) 7 

(YES, DON'T OUTPUT 

(TAC POINTS TO OUTPUT BYTE POINTER 

(TACl POINTS TO WORD COUNT PRECEDING 

( USER DATA BUFFER 

(PICK UP OUTPUT BYTE POINTER 

(DON'T CALCULATE WORD COUNT IF BYTE POINTER 

J NOT SET UP 

(CALCULATE NUMBER OF WORDS USER HAS FILLFD 

(USER KEEPING HIS OWN WORD COJi^T ? 

(YES, SUBSTITUTE HIS COUNT FOR 

( COMPUTED WORD COUNT 

(WORD COUNT EQUAL TO 0? 

(YES, DON'T OUTPUT 0-WOftO FINAL BLOCK. 

(NO, GO WRITE LAST PARTIAL BUFFER 

(WAIT FOR IT TO FINISH 

(CHOOSE A BUFFER AREA FOR RETRIEVAL POINTERS 

(SET NMP, MUST NOT INTERRUPT POK'TER WRITING 
i iSO DF04A WON'T READ NEW POINTERS IN 
(WRITE OUT LAST BLOCK OF POINTERS 



(ONLY ONE BLOCK OF POINTERS? 

(NO. READ FIRST BLOCK INTO BUFFER 

(SET TACl TO POINT TO 4TH WORD OF BUFFER 

(PICK UP AND NEGATE SIZE OF FILE 

(NEGATIVE WORD COUNT INTO FOURTH WORD OF FIRST RIB 



DSKSRB - ALMOST DEVICE INDEPENDENT DISK SERVICE ROUTINES (BURROUGHS) MACRO, V36 19105 A-J\JU-6') PAGE 39-1 
ENTER, LOOKUP, RENAME. CLOSE 



1055 001522 260140 003273' 



PUSHJ PDP.WRIB 



)WRITE OUT FIRST BLOCK OP RETRIEVAL INFORMATION 
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4-JUN-69 PAGE IP 



1056 

1057 

1058 

10'59 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 



JCLOSE UUO CONTINUED. 

!THE FILE AND ALL ITS PQINTEPS HAVE BEEN PUT ON DISK. 

;now put entry In niREcTORY. 



001523 
001524 
001525 
001526 
001527 
001530 
001531 
001532 
001533 
001534 
001535 
001536 
001537 
001540 
001541 
001542 



621300 
554046 
200241 
622240 
254000 
603300 
254000 
606240 
254000 
202006 
260140 
200046 
250060 
202046 
260140 
554046 



020000 

000014 

000002 

010000 

001567' 

000020 

001556' 

040000 

001562' 

000002 

001720' 

000012 

000002 

000012 

002105' 

000014 



001543 700600 001406' 



001544 
001545 
001546 
001547 
001550 

001551 
001552 
001553 
001554 
001555 
001556 



261141 
260140 
262140 
260140 
254000 

201640 
436641 

260140 
254000 
254000 
260140 



000030 
002163' 
000016 
002144 ' 
001557' 

200000 DFCL16: 

000002 

002157' 

003654' 

001551' 

002163' nFcl6A! 



TL? OEVDAT.EnTRB 

HLRH TACQEVACCCnEVQAT) 

MOVE DAT.TBITSITACI 

TR?E OAT.RWTPIT 

JRST DFCLUl 

TLNE OEVOAT.OSkRLB 

JRST DFC16A 

TRNN DAT.ATINO 

JRST DFCL20 

MOVE" lOSiDEVInS(DEVnAT) 

PUSHJ PDP.FINOE 

MOVE TACOEVEXTtDEVDAT) 

EXCH TAC,(?TAC1 

vOVEf' TAC.OEVEXT(DFV"AT) 

PUSHJ PQP,WUFD 

HLR2 TAC,DEVACC(OEVDAT! 

NOSCHEDULE' 

roMo pi.DSKorF 

PUSH PDP,ATPP(TAC) 
PUSHJ POP.ClRAT 
°0P PDP.AC2 
PUSHJ PDP,SCNiAT0 
JRST DFCL17 

MOVEI ACl.DTBIT 
lORM AC1,TBITS(TAC) 
PUSHJ PDP,SCNAT2 
JRST CLRBUF 
JRST DFCL16 
PUSHJ PDP.CLRAT 



IPICK up ACCESS TABLE POINTER 

IGET STATUS BITS AND READ COUNT 

ICLQSING AN UPDATED FILE? 

I YES 

(RESET UUO IN PROGRESS ? 

lYES 

MS NAME ALREADY IN DIRECTORY? 

INO, INSERT IT 

IBRING IN Block with this entry. 

(CHANGE BLOCK POINTER 

ITACl POINTS TO ENTRY IN UFD BLOCi< 

ISAVE POINTER TO RIB OF OLD VERSION FOR rECLAM 

IWRITE THE BLOCK SACK OUT 

lACCESS TABLE POINTER 



ISAVE XWD PROJiPRDG 
IREMOVE THE ACCESS ENTRY 
)XWO PROJiPRDG 

ISCAM FOR ANY OTHERS READING OLD VERSION 
INONE 

IDELETE WHEN THRU READING SINCE IT WAS JUST UPDATED 

ILOOK FOR MORE 
INO MORE 

(UPON RESET UUO WITH PARTIALLY WRITTEN FILE. 
I CLEAR ACCESS TABLE ENTRY RECLAIM DISK SPACE, 



001557 

001557 700600 001331' 

001560 550046 000012 

001561 254030 003327' 



DFCL17! 



SCHEDULE' 

CONO PI.OSKON 

HRR? TAC,DEVEXT(DEVDAT) IRIB# OF FILE 

JRST RECLAM 



001562 
001563 

001564 
001565 
001566 
001567 
001570 
001571 
001572 
001573 
001574 



260140 
554046 

700600 
260140 
254000 
202241 
603300 
263140 
602240 
254000 
602240 



001756' DFCL20I PUSHJ PDP.INSOIR 
000014 



ilNSERT THE NAME 
HLR2 TAC.DEVACCIDEVOAT) lACCESS TABLE POINTER 
NOSCHEDULE' 



001543' CONO PI.DSKOFF 

002163' PUSHJ PDP.CLRAT 

003654' JRST CLRBUF 

000002 DFCLUll MOVEM OAT . TB I TS { TAC ) 

0^0000 TLNE DEVDAT, LOOKS 

000000 POPj POP, 

007777 TRNE OAT, RCOUNT 

001577' JRST DFCLU2 

200000 TRNE DAT,DTBIT 



(REMOVE THE ACCESS ENTRY 

ICLEAR ANY BUFFER IN FREE STORAGE 

(STORE STATUS BITS (WITH UPDATE MARKER Cl EARED) 

(WAS INPUT SIDE OF FILE ALSO CLOSED? 

(NO, LET THE USER KEEP READING IT 

(YES, ANYBODY ELSE STILL READING IT? 

(YES 

INO, WAS IT MARKED FOR DELETION? 



DSKS^B -^AL.nST^nEVICE > NDmNOENT^O, Sk SERVC. ROUTINES (BURRnuCHS, HACR0.V36 19:05 



4-JUN-69 PAGE AH-l 



11S^9 


001575 


254000 


001556' 


1110 


C01576 


260140 


002163' 


1111 


(»01577 


553006 


000014 


1112 


001600 


254000 


003654' 



JRST DFC16A 

PUSHJ pop.clrat 

DFCLU2I HRR2S DE VACC ( DEVDAT ) 
JRST CLRBUF 



lYES, GO DELETE IT AND RECLAIM DISK SPACF 
(NO, CLEAR ACCESS TABLE ENTRY 
ICLEAR POINTER TO ACCESS TABLE 
ICLEAR ANY BUFFER AREA AND EXIT, 



DSKSRB - 



1113 
IIH 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
112B 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 



ALMOST DEVICE INDEPENDENT DISK SERVICE ROUTINES (BURROUGHS) 
ENTER. LOOKUP. RENAME. CLOSE 

ICLOSE UUO CONTINUED. 
JCLOSE AN INPUT FILE. 
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001605 200101 000002 



001601 627300 040000 DFCLSI: TL2N DEVOAT.LOOKP 

001602 263140 000000 POPJ POP. 

001603 554046 000014 DFCL21: HURZ T AC , DEV ACC ( DEVDAT ) 

001604 322040 000000 JUMPE TAC.CPOPJ 

MOVE TACI.TBITS(TAC) 
IFN FTRCHK.< 

001606 602130 020000 TRNE TACl.ATCLO 

0016?7 254200 001604' HALT CPOPJ 

> 

NOSCHEDULE' 

001610 700600 001564' CONO PI.DSKOFF 

001611 370101 000002 SOS TACl.TBITSfTAC) 

001612 602100 017777 TRNE TACl , RCOUNT*RWTn I T 

001613 254000 001617' JRST DFCL23 

301514 6021B0 200000 TRNE TACl.DTBIT 

001615 254000 001556' JRST DFC16A 

001616 260140 002163' PUSHJ PDP.CLRAT 
(1101617 nFCL23! SCHEDULEt 

001617 700600 001557' CONO Pl.OSKON 

001620 627300 010000 TLiN DEVDAT, INPB 

001621 254000 003654' JRST CLRBUF 

001622 250140 003520' PUSHJ PDP.SETBUF 

001623 260140 003261' PUSHJ PDP.RRIB 

001624 275100 000176 SUBI T ACl . BLKS I E-2 

001625 135640 004606' LDB ACl. [POINT 17, ( 

001626 316640 001264' CAMN ACl.THSDAT 
001527 254000 003654' jRST CLRBUF 
001530 200640 001626' MOVE ACl.THSDAT 

001631 137640 004606' DHB ACl. [POINT 17,1 

001632 250140 003273' PUSHJ POP, WRIB 

001633 254000 003654' JRST CLRBUF 



IPOINT TO ACCESS ENTRY 
(EXIT IF ACCESS TABLE ALREADY CLOSED 
) (PROBABLY tC DURING EARLIER ATTEMPT! 
IGET STATUS BITS 

IIS THIS FILE SIMPLY BEING CREATED (NOT LiPDATED)? 
)IF SO. SOMEBODY IS VERY CONFUSED, 



(DECREMENT RCOUNT 
lANY MORE READS? OR 
lYES, LEAVE 



OUTPUT CLOSE TO DO? 



(TO BE DELETED? 

lYES 

ICLEAR THE ENTRY AND EXIT 



lANY INPUT UUO' 

INO, JUST EXIT, RETURNING MON BUF 

lYES, UPDATE ACCESS DATE AS FOLLOWS! 

IREAD IN JUST BLOCK OF RETRIEVAL INFORMATION, 

ISET TACl TO 2ND WORD OF BLOCK 
'TACl. 35] IGET PREVIOUS ACCESS DATA. 

lALREAOY ACCESSED EARLIER TODAY? 

lYES, JUST CLEAR BUFFER AND EXIT, 

INO, STORE TODAYtS DATE AS NEW ACCESS DATE. 
'TACl. 35] ) 

IREMRITE FIRST BLOCK OF RETRIEVAL INFORMATION, 

ICLEAR BUFFER AND EXIT. 
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ENTER. LOOKUP. RENAME. CLOSE 

1149 SUBTTL DIRECTORY SEARCHING 

1150 ISEARCH DIRECTORY FOR A PARTICULAR ENTRY. 

1151 iENTER BYI MOVE DAT, NAME 

1152 i HLLZ ACl. EXTENSION 

11«53 ) HRRE TAC. BLOCK NUMBER FOR POINTERS 

1154 I PUSHJ PDP.OIRSRC 

1155 1 EXITl NAME NOT FOUND 

1156 ) EXIT2 NAME FOUND. TAC POINTS TO ENTRY 
1157 

1158 

1159 (1)01634 261140 000015 DIRSRCl PUSH PDP.ACl 

1160 001635 261140 000005 PUSH PDP.DAT |0(PDP) IS F ILENAME . -1 (POP ) IS EXTENSION 

1161 001636 260140 003316' PUSHJ PDP.SETPTR (READ UFD RETRIEVAL POINTERS 

1162 001637 550046 0li)0014 DRSRC0I HRRZ T AC , DEVACC t DEVDAT ) 

1163 001640 303046 000037 CAILE TAC . PTRN ( DEVDAT ) tMORE POINTERS IN CORE? 

1164 001641 2540(?0 001667' JRST DRSRC7 INO. GET MORE, 

1165 001642 550041 000000 HRRE TAC. (TAC) 

1166 001643 322040 001701' J(JMPE TAC.0RSRC6 IB SIGNALS END OF POINTERS 

1167 001644 350006 000014 AOS DEVACC( DEVDAT ) (NEXT POINTER 

1166 001645 3500(56 000015 AOS DEVCNT < DEVDAT ) (COUNT UFD BLOCKS SEARCHED 

1169 001646 260140 004110' PUSHJ POP.MQIN IREAD THE DATA BLOCK 

1170 001647 254000 004457' JRST RERA lERROR. YQU LOSE. 
1171 

1172 001650 200106 000020 MOVE TACl. DSKBUF ( DEVDAT) I XWD-L .POI NTER 

1173 001651 550040 000002 HRR2 TAC, TACl 

1174 001652 607000 000200 TLNN lOS.UBFS (DUMP MODE? 

1175 B01653 505040 000007 HRL I TAC, PROG INO, RELOCATE, 

1176 001654 510643 777777 HLLZ AC1,-1(PDP) (SIXBIT/EXT/ 

1177 001655 336760 000001 DRSR3AI SKIPN AC3,»TAC (BLOCK ENTIRELY SEARCHED? 

1178 001656 254000 001637' JRST DRSRC0 (YES 

1179 001657 271040 000001 ADDI TAC,1 

1160 001660 316743 000000 CAMN AC3,(PDP) (NAMES MATCH? 

1181 001661 254000 001673' JRST DRSRC8 (YES 

1182 

1183 001662 271040 000001 DRSRC4I ADDI TAC,1 

1194 001663 550740 000001 HRRZ AC3,TAC 

1185 001664 302742 000200 CAIE AC3 , BLKSl Z ( T ACl ) IIS BLOCK ENTIRELY SEARCHED? 

1186 001665 254000 001655' JRST DRSR3A INO 

1187 001666 254000 001637' JRST DRSRC0 
1188 

1189 001667 603000 000100 DRSRC7I TLNE lOS.NMP (ANY MORE POINTERS ON DISK? 

1190 001670 254000 001701' JRST DRSRC6 INO 

1191 001671 260140 003012' PUSHJ PDP.GETPTR lYES, GET SOME 

1192 001672 254000 001637' JRST DRSRC0 
1193 

1194 001673 510760 000001 DRSRCBl HLLZ AC3,eTAC IDOES EXTENSION MATCH 

1195 001674 312740 000015 CAME AC3,AC1 

1196 001675 254000 001662' JRST DRSRC4 |N0 

1197 001676 275040 000001 SUBI TACl IPOINT TO FIRST WORD OF ENTRY 
1198 

1199 001677 350003 777776 AOS -2(PDP) lYES, ENTRY IS FOUND. 

1200 001700 207006 000015 MOVSS DEVCNT ( DEVDAT ) ISAVE COUNT OF UFO BLOCKS FOR USE AT ;CLOSE 
1201 
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l"E[LE" NOT FOUND 



125"2 








lEXIT. 




12:^3 












1204 


0017H1 


262140 


000005 


DRSRC6I 


POP PDPiOAT 


12(!5 


1^01702 


262140 


000015 




POP PDP.ACl 


12!»6 


001703 


263140 


000000 




POPJ POP, 


12i»7 








ICHECK 


PROTECTION ON UFD 


12!?8 












12Cf9 


001704 


261140 


000015 


DSRC10! 


PUSH PnP.ACl 


1210 


001705 


260140 


003316' 




pushj pdp.setptr 


1211 


001706 


205240 


200000 




MOVSI DAT, 200000 


1212 


001707 


603030 


000020 




TLNE lOS.IO 


1213 


001710 


241240 


777777 




ROT HAT,-! 


1214 


001711 


201046 


000023 




MOVEI TAC.PTRKOFVnAT) 


1215 


001712 


550643 


777775 




HRR2 AC1,-3(PDP) 


1216 


001713 


621000 


020000 




TLZ lOS.PRCHG 


1217 


001714 


260140 


001435' 




PUSHJ POP.PROTKY 


1216 


001715 


661000 


020000 




TLO lOS.PRCHG 


1219 


001716 


261146 


000011 




PUSH PDP.DEVFIL(OEVDAT) 


1220 


001717 


254000 


001637' 




JRST DRSRC0 



(PUSH EXTENSION 

(SET UP TO TEST READ BIT 

I IS IT tOOKUP? 

INO.TEST WRITE PROTECTION 

IXWD PROJrPROG 



IFLAG PROTECTION CHANGE 

IPUSH FILENAME TO MAKE PDL LOOK LIKE DIRSRC 



DSKSRB 



- ALMOST DEVICE INDEPENDENT DISK SERVICE ROUTINES (BURROUGHS) 
DIRECTORY SEARCHING 



HACRn.V36 19105 4-JUN-69 PAGE 44 



1221 








1222 








1223 








1224 








1225 


001720 


352000 


000000 


1226 


001721 


260140 


000000 


1227 


001722 


661000 


010000 


1228 


001723 


564046 


000022 


1229 


001724 


554246 


000015 


1230 


001725 


271240 


000004 


1231 








1232 


001726 


206046 


000016 


1233 


001727 


260140 


003263" 


1234 


001730 


30324B 


000176 


1235 


001731 


2540C0 


001752' 


1236 


001732 


275240 


000001 


1237 


001733 


542246 


000016 


1238 


001734 


260140 


003016' 


1239 


001735 


550046 


000023 


1240 


001736 


260140 


004110' 


1241 


001737 


2540!>I0 


004457 ' 


1242 


001740 


260140 


003314' 


1243 


001741 


510646 


000012 


1244 








1245 


001742 


200060 


000002 


1246 


001743 


271100 


000001 


1247 


001744 


312046 


000011 


1248 


001745 


344100 


001742' 


1249 


001746 


510060 


000002 


1250 


001747 


312040 


000015 


1251 


001750 


344100 


001742' 


1252 


001751 


263140 


000000 


1253 








1254 








1255 


001752 


260140 


003311' 


1256 


001753 


554060 


000002 


1257 


001754 


275240 


000176 


1258 


001755 


254000 


001726' 



(FIND A UFD ENTRY, IT MUST RE THERE. 

EXTERNAL AUREQ.AUWAIT 

FINDE! AOSE AUREQ 

PUSHJ PDP.AUWAIT 

TLO lOS.AUFLG 

HLRZ TAC,SETCNT(DEVDAT) ;SET TAC TO UFD POINTERS 

»lPi DAT,OEVCNT(OEVDAT) ISET DAT TO COUNT COI^PUTED BY DIRSRC 

ADOI DAT.OIRSI? 

FINOEl! MOVS« TACDEVBlKIDEVHATjiREAD A POINTER BLOCI< 
PUSHJ PDP,RRIA 

CAILF DAT.3LKSIZ-2 IPDINTER IN THIS BLOCK? 

JRST FINDE2 |nO, GET NEXT ONE 

SURI DAT.l lYES, BRING THEM IN 

HRRm DAT,DEVBLK(0EVDAT) ISET INDEX INTO RIB 

PUSHJ PDP,0F1N4 ICOPY POINTERS INTO DOB 

HHR2 TAC.PTRKdEVDAT) IGET RETRIEVAL POINTER FOR UFD BLOCK 

PUSHJ PDP.MQIN ;READ the UFD SLOCK 

JRST RERa IERROR 

PUSHJ pdp,set000 ifind The entry 

HLLZ AC1,DEVEXT(DEVDAT) IGET EXTENSION FROM DDB 



SHCUi: MOVE TACPTACl 

ADOI TACl.l 

CAME TAC,DEVFlL(nEVDAT) 

AOJA TACl.SRCUl 

HLLH TAC,6"TAC1 

CAME TAC.ACl 

AOJA TACl.SRCUl 

POPJ PDF, 



FINDE2! PUSHJ PDP,SET176 
MLRZ TACPTACl 
SUBI DAT,BLKSI?-2 
JRST FINDEl 



IGET FILE NAME FROM UFO 

ISAME7 

INAMES DO NOT MATCH 

IGET EXTENSION FROM UFD 

ISAME? 

lEXTENSIONS 00 NOT MATCH 

IFOUND IT 



(GET THE NEXT POINTER BLOCK 
IBACK UP DAT 



DSKSRB 


- ALMOST 


DEVICE 


INDEPENO 




DIRECTORY SEARCHING 


1259 








1260 








1261 








12fi2 








1263 


001756 


352000 


001720' 


1264 


001757 


260140 


001721' 


1265 


001760 


661000 


010000 


1266 


001761 


402006 


000015 


1267 


001762 


554046 


000022 


1268 


001763 


260140 


0''3316i 


1269 


001764 


370006 


000014 


1270 








1271 


001765 


350046 


000014 


1272 


001766 


553000 


000001 


127J 


001767 


350006 


000015 


1274 


001770 


303046 


000037 


1275 


001771 


254000 


002073' 


1276 








1277 


001772 


550041 


000000 


1278 


001773 


322040 


002023' 


1279 


001774 


260140 


004110' 


1280 


001775 


254000 


004457' 


12»1 








1292 


001775 


260140 


003311' 


1283 


001777 


332020 


000002 


1284 


002000 


254000 


001765' 


1285 








1286 


002001 


20701^6 


000015 


1287 


002002 


260140 


002004' 


1288 








1289 


002003 


2540KI0 


002105' 
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MNSEKT AN ENTRY IN A DIRECTORY, 
EXTERNAL AUREQ , AUWA I T , AU AV AL 



INSOIR! 



INSQl! 



INS02i 



AOSE AUREQ 

PUSHJ PDP.AUWAIT 

TLO lOS.AUFLG 

SETZM DEVCNT(DEVOAT) (CLEAR BEFORE COUNTING BLOCKS OF UFD 

HLR2 TAC.SETCNTCOEVOAT) tHLOCK* OF UFO RIB 

PUSHJ PDP.SETPTR ISET UP FIRST POINTERS, 

SOS DEVACC(DEVDAT) tSVNC 



AOS TAC.DEVACC(DEVDAT) 
HRRZS TAC 
AOS OEVCNT(DEVDAT) 
CAILE TAC,PTRN{DEVDAT) 
JRST INSD10 

HRRZ TAC,(TAC) 
JUMPE TACilNSDS 
PUSHJ PDPiMQIN 
JRST RERA 

PUSHJ P0P,SET176 
SKIPE ?TAC1 
JRST INSDl 

MQVSS DEVCNT(DEVDAT) 
PUSHJ PDP.INSD3 

JRST WUFD 



IGET NEXT POINTER, 

ICOUNT EACH UFD BLOCK 
(ANY MORE IN CORE? 
INO, GET SOME MORE, 

IGET RETRIEVAL POINTER 

10 SIGNALS END OF POINTERS 

IREAD UFD BLOCK 

(ERROR, 

(SET TACl To WORD 127 
JIS IT HERO? 
(NO, SLOCK FULL, 

(SAVE RELATIVE* OF BLOCK CONTAINING NEW FNTRY 
(INSERT ENTRY, 

(WRITE BLOCK AND LEAVE 
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1290 












1291 








; INSERT 


THE ENTRY. 


1292 












1293 


0020C4 


550646 


000020 


INSD3i 


HRRZ AC1,DSKHUF(DEVDAT) 


1294 


002006 


306642 


000000 


INSD3B: 


CAIN AC1,(TAC1) 


1295 


002006 


254000 


002013' 




JRST INSD3A 


1296 


002007 


275l'/l0 


000002 




SUBI TAC1.2 


1297 


002010 


336020 


000002 




SKIPN 9TAC1 


1298 












1299 












1300 


002011 


254000 


002005' 




JRST INS03B 


13?1 












13(12 


002012 


271100 


000002 




ADOI TACli2 


13513 


002013 


200046 


000011 


INSD3AI 


MOVE TAC,0EVF1L(DEVDAT) 


1304 


002014 


202060 


000002 




MOVEM TACi9TACl 


1305 


002015 


271100 


000001 




ADDI TACl.l 


1306 


002016 


200046 


000012 




MOVE TAC,OEVEXT(DEVDAT) 


1307 










IFN FTRCHKi< 


1308 


002017 


606040 


777777 




TRNN TAC-l 


1309 


002020 


254200 


002021' 




HALT .*1 


1310 












1311 








> 




1312 


002021 


202060 


000002 




MCVEM TACPTACl 


1313 


002022 


263140 


000000 




POPJ POP, 



IBEGINNING OF BLOCK? 
I YES 

(SEARCH UFD BLOCK BACKWARDS 
I FOR LAST NON-ZERO FILENAME. 



JMPVE IN NAME, 

(MOVE IN EXTENSION i POINTER. 

(POINTER TO BLOCK 

IFOR RETRIEVAL INFO 

I CONTINUE-GET BAD INFO MESSAGE 
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sCREaTE new IIFD BLOCK AND ADD ENTRY. THEN FIND THE LAST OR ONLY 
iPOINTER BLOCK. ADD POINTER IF POSSIBLE. IF NOT POSSIBLE. 
iCREATE NEW POINTER BLOCK AND PUT THE POINTER IN IT, 

INS05: PUSHJ PDP,SET000 I9TAC1 POINTS TO WORD (" OF BUFFER 
NOSCHEOUlE' 
CONO PI .OSKOFF 

MOVEI TAC.»TAC1 JPOINT TO WORD OF BUFFER 

SET2M 2(TAC) ICLEAR FOR BLT 

MOVSI DAT,2(TACI (SOURCE 
HRRI DAT,3(TAC) (DESTINATION 

BLT DAT,BLKSIZ-1(TAC) ICLEAR WORDS 2,-127, 
SCHEDULE' 
CONO PI .DSKON 

PUSHJ P0P.INSD3A (INSERT ENTRY IN WORDS 0.1 

MOVSS OEVCNT(DEVDAT) (SAVE RELATIVE BLOCKS OF THIS UFO BLOCK 

PUSHJ PUP, DFGETF (GET A FREE BLOCK 

f-OVEM TAC.SETCNT (DEVDAT) (SAVE IT 

IFG CHKCNTi< 

"OVE TAC,0SkRUF(0EVD4T) 

PUSHJ POP.CHKSUM 

hRLM TACI.SETCNTCDEVOAT) 

MOVE TAC,SETCNT(DEVDAT) 

> 

INSD5A) PUSHJ PDP.MOOUT (WRITE THE UFD BLOCK OUT 

JRST INSOll (ERROR 

PUSHJ PDP.RRI (READ POINTERS BACK IN. 

INS06! PUSHJ PDP.SET176 

HLR2 TAC,»TaC1 (LAST OR ONLY BLOCK? 

JUMPE TAC.INS07 

PUSHJ PDP.RRIA (NO, READ NEXT ONE, 

JRST INSDO 

INSD7: SUBI TACl,l lYES, ROOM FOR ANOTHER POINTER? 

SKIPN 9TAC1 
SOJA TAC1,INSD8 (YES, 

PUSHJ PDPiNEWRIS (CREATE NEW POINTER BLOCK, 
PUSHJ PDPiSET000 (SET TACl TO FIRST WORD 
INSD7A! MOVE TACSETCNTCDEVDAT) (GET POINTER SAVED ABOVE 

MOVEM TAC.9TAC1 (STORE POINTER TO NEW UFO BLOCK 

PUSHJ POP.WRl (WRITE BLOCK 

SOSL AUREO (RELEASE UFO RESOURCE 

SETOM AUAVAL 
TLH lOS.AUFLG 
MOVEM IOS,DEVIOS(DEVDAT) 
1365 002067 263140 000000 POPJ POP, 



1314 








1315 








1316 








1317 








1318 


002023 


260140 


003314' 


1319 








1320 


002024 


7006H0 


001610' 


1321 


002025 


201060 


000002 


1322 


002026 


402af'l 


000002 


1323 


002027 


205241 


000002 


1324 


002030 


541241 


000003 


1325 


002031 


251241 


000177 


1326 








1327 


002032 


70065)0 


001617' 


1328 








1329 


002033 


260140 


002013' 


1330 


002034 


207006 


000015 


1331 


002035 


2601^0 


003371' 


1332 


002036 


202046 


000022 


1333 








1334 








1335 


002037 


200046 


000020 


1336 


002040 


260140 


004473' 


1337 


002041 


5061!'6 


000022 


1338 


002042 


200046 


000022 


1339 








1340 








1341 


002043 


260140 


004112' 


1342 


002044 


2540K0 


002100' 


1343 








1344 


002045 


260140 


003262' 


1345 


002046 


260140 


003311' 


1346 


002047 


554060 


000002 


1347 


002050 


322040 


002053' 


1348 








1349 


002051 


260140 


003263' 


1350 


002052 


2540l?,0 


002046' 


1351 








1352 


002053 


275100 


000001 


1353 


002054 


336020 


000002 


1354 


00205S 


364100 


002070' 


1355 








13 56 


002056 


260140 


003202' 


1357 


002057 


260140 


003314' 


1358 


002060 


200046 


000022 


1359 


002061 


202060 


000002 


1360 


002062 


260140 


003274' 


1361 


002063 


371000 


001756' 


1362 


002064 


476000 


000000 


1363 


002065 


621000 


010000 


1364 


002066 


202006 


000002 
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1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
13819 
1381 
1382 
1383 
1384 

1385 
1386 
1387 



IROOM FOR ANOTHER POINTER IN THIS SLOCK, FIND LAST POINTER, 
MNSEHT NEW ONE. AND WRITE BLOCK OUT, 



002070 
002071 
002072 



002073 
002074 
002075 
002076 
002077 



002100 
002101 

002102 
002103 
002104 



336020 
364100 
344100 



603000 
254000 
260140 
200046 
254000 



606000 
264000 

260140 
542046 
254000 



000002 INSDa: SKIPN 9TAC1 
002070' SOJA TAC1,INSD8 

002060' AOJA TAC1,INSD7A 

(GET MORE POINTERS INTO CORE. 

000100 INSO10I TLNE lOS.NMP 
002023' JRST 1NSD5 

003012' PUSHJ PDP.GETPTR 

000014 MOVE TACDEVACCIDEVDAT) 

001772' JRST INSr)2 



(SCAN BACKWARDS FOR LAST POINTER 
(FOUND IT, ADO NEW ONE, 



(ANY MORE ON DISC? 
(NO 



IWRITE ERROR, IF WRITE-LOCK, FIX IT, 



400000 
004443' 

004562' 

000022 

002043' 



INSDlll TRNN lOS.IOlMPM 
JRST WERA 

PUSHJ PDP.WLERA 

HRRH TAC.SETCNTIOEVDAT) 

JRST INSD5A 



(IT WAS NOT, YOU LOSE. 
(GET ANOTHER BLOCK 



DSKSP3 


- ALMOST 


DEVICE 


INDEPEND' 


ENT DISK : 




DIRECTORY SEARCHING 




13P8 








;OUTPUT 


13B9 








iir WRIT 


1390 








(ALTERED 


1391 










1392 








EXTERNAL 


1393 










1394 


H02105 






WUFDI 


1395 


002105 


200046 


000020 




1396 


002106 


260140 


004473' 




1397 










1398 


002107 


200046 


000014 




1399 










1400 


002110 


506101 


000000 




1401 


002111 


205100 


200000 




140Z 


002112 


436106 


000010 




14'?3 










1404 










1405 










1406 










1407 










1408 










1409 










1410 


002113 


550041 


000000 




1411 










1412 


002114 


260140 


004112' 


WUFDH 


1413 


002115 


254000 


002130' 




1414 


002116 


200046 


000010 




1415 


002117 


661000 


000100 




1416 


002120 


202006 


000002 




1417 


002121 


603040 


200000 




1418 


002122 


260140 


003131' 




1419 


002123 


371000 


002063' 




1420 


002124 


476000 


002064' 




1421 


002125 


621000 


010000 




1422 


002126 


202006 


000002 




1423 


002127 


263140 


000000 




1424 










1425 


002130 


200106 


000021 


WUFD3! 


1426 


002131 


606100 


400000 




1427 


002132 


254000 


004443' 




1428 


002133 


620000 


400000 




1429 


002134 


202006 


000002 




1430 


002135 


205100 


200000 




1431 


002136 


436106 


000010 




143Z 


002137 


260140 


004562' 




1433 


002140 


200106 


000014 




1434 


002141 


542042 


000000 




1435 


002142 


254000 


002114' 
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A UFO BLOCK. PERFORM CHECKSUM IF NEEDED, WRITE THE BLOCK OUT. 
IF WRITE-LOCK ERROR, TRY ANOTHER BLOCK. FINALLY, IF POINTERS WERE 

, WRITE THEM OUT. 

AUREQ.AUAVAL 

IFG CHKCNT,< 

MOVE TAC,DSKBUF(0EV04T> IPOINTER TO BUFFER 

PUSHJ PDPiCHKSUM IRETURN CHECKSUM IN TACl 

> 

MOVE TAC,DEVACC<DEVOAT) IGET POINTER LOCATION 

IFG CHKCNT.< 

HRLM TAC1,CTAC) (STORE CHECKSUM IN RETRIEVAL POINTER 

MOVSI TACl.PNTOIF 

ORM TAC1,DEV0AD(DEVDAT) (NOTE THAT POINTERS IN DOB NOT»OISK 

> 

IFLE CHKCNT,< 

MOVE TACl.OEVOAD(DEVOAT) 

TLO TAC1,PTR0UT 

TLZ TACl.PNTOIF 

MOVEM TACl,DEVOAO(DEVDAT) 

> 

HRRE TAC,(TAC) (GET BLOCK* FROM RETRIEVAL POINTER 

PUSHJ PDP.MQOUT (WRITE UFD BLOCK 

JHST WUFD3 (WRITE ERROR 

MOVE TAC,DEVOAD(DEVOAT) 

TLO lOS.NMP (SET NMP 

MOVEM I0S,DEVI0S(DEVDAT) iSO DF04A WON'T READ POINTERS 

TLNE TAC.PNTDIF (WERE POINTERS CHANGED? 

PUSHJ PDP,DF04A (YES, WRITE THEM OUT, 

SOSL AUREQ (RELEASE UFD RESOURCE 

SETOM AUAVAL 

TLZ lOS.AUFLG (NOTE THAT UFD RELEASED 

MOVEM lOSiDEVIOS(OEVOAT) 

POPJ POP, 

MOVE TACl, DSKCNT(DEVnAT) (WAS ERROR WRITE-L0CK7 

TRNN TACl, lOIMPM 

JRST WERA 

TR? lOS.IOIMPM (YES 

MOVEM lOSiDEVIOS(OEVOAT) 

MOVSI TACl.PNTOIF 

ORM TAC1,DEV0AD<DEVDAT) 

PUSHJ PDP.WLERA (FREE CURRENT ASSIGNED BLOCK AND GET A NEW ONE 

MOVE TACliDEVACC(OEVOAT) 

HRRM TAG, (TACl) 

JRST WUFOl 



DSKSRB 
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1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 



SUBTTL ACCESS TABLE PROCESSING 

(SCAN ACCESS TABLE. 

(EXIT TO CALL*! WITH TAC SET TO THE LAST ENTRY IF NOT THERE, 

(EXIT TO CALL*2 WITH TAC SET TO CORRECT ENTRY IF THERE, 

EXTERNAL CPOPJl.CPOPJ 



meZlA'S 2007l?i3 777777 SCANATt MOVE AC2,-1(P0P) 

002144 336040 000010' SCNAT0I SKIPN TAC. FAT 

002145 263140 BlSeenz SCNHLTi POPJ POP. 



002146 312701 000000 SCNATli CAME AC2 , ATPP ( TAC > 

002147 254000 002157' JRST SCNAT2 



lANY AT ALL? 

INO, LEAVE (HALT PC HERE IF ATTEMPT 

) TO CLEAR NON-EXISTANT ACCESS TABLE) 

)PROJ,-PROG, THE SAME? 
INO 



002150 200246 000011 

002151 312241 000001 

002152 2540[»0 002157' 



MOVE OAT,OEVFlL(DEVDAT) (NAMES THE SAME? 
CAME OAT,ATNAME(TAC) 
JRST SCNAT2 



1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1465 
1467 



002153 
002154 
002155 
002156 



510241 
510746 
316240 
254030 



002157 550241 

002160 322240 

002161 200040 

002162 254000 



000002 HLL2 DAT,ATEXT(TAC) lEXTENSION THE SAME? 

000012 HLLZ AC3,DEVEXT(DEVDAT) 

000017 CAMN DAT,AC3 

001446' JRST CPOPJl JYES 

.'CONTINUE SCAN FROM CURRENT ENTRY 



000003 SCNAT2I HRR2 DAT, ATL INK ( TAC ) 
001607' JUMPE DAT.CPOPj 

000005 MOVE TAC. OAT 

002146' JRST SCNATl 



lANY MORE ENTRIES? 

INO 

lYES. GO TO THE NEXT ONE 
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ACCESS TABLE PROCESSING 

SClEaR an ACCESS ENTRY, 

;IT IS ASSUMED THAT NO SCHEDULING WILL TAKE PLACE, 

lENTEH WITH TAC POINTING TO THE ENTRY TO WIPE OUT, 

CLRAT: IFN FTRChK,< 

SKIPN TAC lATTEMPT TO CLEAR NON EXISTENT ACCESS TABLE IS AN ERROR 

HALT SCNHLT ICONTINUE WILL POPJ AND EXIT, 

> 

HRRZS nEVACC(OEVDAT) ICLEAR ACCESS TABLE POINTER IN DEVICE DATA BLOCK 
MOVEI AC2.FAT ISTART AT BEGINNING OF LINKED ACCESS TABlE ENTRIES 

SURI ACZ.ATLINK 

CLRATll MOVE ACl.ACS IPICKUP THE NEXT ACCESS TABLE 

HRR2 ACZ.ATLINKCACl) 

IFN FTRCHK,< 

SKIPN AC2 IZERO LINK INDICATES END OF TABLE WITHOUT 

IFINOING ENTRY TO 8E CLEARED 

HALT SETHLT ICONTINUING AFTER THIS ERROR WILL CONTINUE 

I NORMALLY (IE POPJ) 
> 

CAME AC2,TAC IDOES THIS ENTRY LINK TO THE ONE TO BE C| OBBERED? 

JRST CLRaTI INO, CONTINUE SERACH 

MOVE AC2,ATLINK(TAC) JYES, FOUND IT 
HRRM AC2,ATLINK(AC1! ILINK AROUND IT 
JRST CLRCOR ICLEAR THE CORE 



1468 








1469 








147IS 








1471 








1472 








1473 


002163 






1474 








1475 


002163 


336000 


000001 


1476 


002164 


254200 


002145' 


1477 








1478 


002165 


553006 


000014 


1479 


002166 


201700 


0000101 


1480 


002167 


275700 


000003 


1481 








1482 


002170 


200640 


000016 


1483 


002171 


550715 


000003 


1494 








1485 


002172 


336000 


000016 


1486 








1467 


002173 


254200 


002214' 


1488 








1489 








1490 


002174 


312700 


000001 


1491 


002175 


254000 


002170' 


1492 








1493 


002176 


200701 


000003 


1494 


002177 


542715 


000003 


1495 


002200 


254000 


004025' 


1496 








1497 
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1490 '^"^l' * "OLE FOR ACCESS TABLF ENTRY AND SET A LINK, 

t,'' (BUILD UP THE ENTRY ' 

llll '^PON ENTRY, OAT SHOULD CONTAIN TEST BITS To SET 



II" ziiii i'£:t iiiiii' "'"■ ^i.JJSfS^;;?;,,..,, ""■ "■•"' " - -"" »^°" 

I ; siis isii:^ sssK :s!r.:f , — ~ 

: SL':i ism r,r,i :;:r.!;::;;;s-""" ;5;g"^.E^?,:j- 

1509 0022i!!7 202242 000000 MOVEM nAT.ATPPlTACl) ^TnRr vu/1 oSn , DD«n 

;|; sii;; isi:^ ks?i. k -: jf-isss:. . - .5 ;; . ... 

..?!!- J.31., MM.. SEIKL., PO.. PrP, I^irP^'^.'? I? 't.Hr^lBLE -ITMU. n»0,M 

I ENTRY TO BE CLEARED 



DSKSRB - ALMOST DEVICE INDEPENDENT DISK SERVICE PIOUTINES (BURROUGHS) 
ACCESS TABLE PROCESSING 

SUBTTL DUMP INPUT/OUTPUT 
(DUMP MODE OUTPUT 
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1516 








1517 








1518 








1519 








1520 








1521 


002215 


607300 


020000 


1522 


002216 


254000 


004355' 


1523 








1524 


002217 


661000 


000020 


1525 


002220 


2020!»6 


000002 


1526 


002221 


260140 


000000 


1527 


002222 


254000 


000000 


1528 








1529 


002223 


336060 


000014 


1530 


002224 


263140 


0B0000 


1531 


002225 


603040 


777777 


1532 


002226 


254000 


002231' 


1533 


002227 


540600 


000001 


1534 


002230 


254000 


002223' 


1535 








1536 


002231 


271040 


000001 


1537 


002232 


261140 


000001 


1538 








1539 


002233 


260140 


003414' 


1540 








1541 


002234 


260140 


003421' 


1542 








1543 


002235 


574203 


000000 


1544 


002236 


217000 


000004 


1545 


002237 


271200 


000177 


1546 


002240 


240200 


777771 



EXTERNAL COMCHK , ADRERR , SAVDDL 

DFDMPO; TLNN DEVDAT.ENTRB 
JRST 0EERR2 

TLO IOS,I0 

MOVEM lOS.OEVIOS(DEVDAT) 

PUSHJ PDP, COMCHK 

JRST ADRERR 

DFDO0! SKIPN TACiSUUO 
POPJ PDP, 
TLNt TAC,-1 
JRST DFOO0A 
HRR UUOiTAC 
JRST DFOO0 



lENTER YET? 

INO, UNDEFINED FILE 

lOUTPUT STATUS 
I 
ICHECK IDWOS 
lERROR 

IPICK up NEXT lOWD 
I IT WAS ZERO. LEAVE 
ILH HERO? 

;no 

(yes. another table 



DFDO0AI ADOI TAC,1 

PUSH PDP.TAC 



DFDOll PUSHJ PDP,UPDA 
003421' DFDOIAI PUSHJ PDP,SATGET 



HLRE ITEM, (POP) 
MOVMS ITEM 
AODI ITEM,BLKSI2-1 
ASH ITEM,-BlKP2 



IFORM XWD - LENGTH, FIRST-ADDRESS 
ISAVE IT 

ISET DAREQ INTERLOCK (SAT BLOCKS MAY ONLY 

I BE MANIPULATED BY ONE USER AT A TIME!) 

(ACQUIRE A NON-FULL SAT BLOCK 

I ITEM IS DESTROYED IF SATGET CALLS MQIN.MOOUT 

I ITEM * CLH OF IOWD3/200 

(MAKE E,G, 129 WORDS USE 2 DISK BLOCK 
(NUMBER OF BLOCKS REQUIRED FOR THIS WRITF 



DSKSRB - ALMOST DEVICE INDEPENDENT DISK SERVICE ROUTINES (BURROUGHS) MACRO, V35 19105 4-JUN-69 PACE 54 
DUMP INPUT/OUTPUT 

HRRZ ACl.SATPTR 

MOVE AC2,SATBK2, 

PUSHJ POPiGETBIT )ASK FOR CdTEM BITS) 

JRST DFD06 INOT AVAILABLE 

ADDM ITEM.9SATPTR (INCREMENT COUNT 

SETOM SATCHG ISAT BLOCK HAS BEEN CHANGED 

HLRH DAT,»SATPTR (COMPUTE BLOCK NUMBER LESS 1, 

SCHEDULEt 

CONO PI.DSKON 

PUSHJ PDP.DOWNDA IRESET QAREQ INTERLOCK, 

ADOI DAT,-2(TAC1) 

PUSH POP, DAT lAND SAVE BLOCK NUMBER LESS 1 

PUSH POP, ITEM (SAVE COUNT OF BLOCKS WRITTEN 

MOVE TAC1,'2(PDP) ISET UP AN lOWD (SAVED AT OFDOBA) 

MOVEM TACl.OSKBUF(DEVDAT) 

MOVN TACITEM 

LSH TAC,BLKP2 

HLRES TACl 

CAML TAC.TACl 

HRLM TAC,DSKBUF(DEVDAT) lONLY A PARTIAL WRITE 

HLRE TAC1,DSKBUF(DEV0AT) 

MflVM^ T A f 1 

PUSHJ PDPiUPDEVC (UPDATE SI?E OF FILE 

ADOM 1TEM,SETCNT(DEVDAT) ( NON UPDATE RELATIVE BLOCK* WITHIN THE FILE 



1547 


002241 


550640 


000015' DFD02AI 


1548 


002242 


2007C0 


000236' 


1549 


PI02243 


260140 


003744' OFDOIBI 


1550 


002244 


254000 


002402' 


1551 








1552 


002245 


272220 


000015' 


1553 


002246 


476000 


000017' 


1554 


002247 


554260 


000015' 


1555 








1556 


002250 


700600 


002032' 


1557 


002251 


260140 


003404' 


1558 


002252 


271242 


777776 


1559 


002253 


261140 


000005 


1560 


002254 


261140 


000004 


1561 


?02255 


200103 


777776 


1562 


002256 


2021^16 


000020 


1563 


002257 


210040 


000004 


1564 


002260 


242040 


000007 


1565 


002261 


577000 


000002 


1566 


002262 


311040 


000002 


1567 


002263 


506046 


000020 


1568 


002264 


574106 


000020 


1569 


002265 


217000 


000002 


1570 


002266 


260140 


004534' 


1571 


002267 


272206 


000022 



D3KSRB 



1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1532 

1583 

158t 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 

16H1 

1632 

1603 

1604 

1605 

16(16 

1607 

1608 

1609 

1610 

1611 

161Z 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 

1624 
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002270 
002271 
002272 



200106 
627100 
254000 



000020 
000177 
002327' 



002273 261140 000002 



002274 
002275 
002276 

002277 
002300 



002301 
002302 
002303 
002304 
002305 
002306 
002307 
002310 
002311 
002312 
002313 
002314 
002315 
002316 
002317 
002320 



002321 
002322 
002323 

B02324 
002325 



261146 
260140 
200126 

262140 
260140 



200640 
550043 
270640 
350000 
321640 
274640 
500700 
2716«7 
500640 
200715 
202702 
2521P0 
253640 
402002 
253100 
260140 



000020 

003620' 

000020 

000001 
000000 



000001 

777776 

004607' DFD02C! 

000001 

002303' 

004607' 

000015 

000000 

000016 

000000 

000000 

002314' 

002312' 

000000 

002316' 

004112 ' 



MOVE TACl,DSKBUF(DEVDAT) ;PICK UP ADDRESS AND WORD COU^MT 

^^QT nrnio^'-'*^'^'^ '^"^ ^^^^ NUMBER OF DISK BLOCKS TO BE WRITTEN? 
JRST DFD02G ,yeS, DON'T WORRY ABOUT PARTIAI BLOCK 

IHANOLING PROBLEMS 
PUSH PDP.TACl )N0, SAVE ADDRESS WITH COUNT OF FULL BLOCKS-1 

Pn^u,^pn;°cr?^'',r°^^"^' !saVE,ORIGInIl''aDDRESS ;EXACT WORD COUNT ALSO 

PUSHJ PDP.SETBUF IGET MONITOR BUFFER 

MOVE TACl,DSKBUF(DEVnAT) |TAC1 GETS ADDRESS OF MONITOR BUFFER 

nno ana . . r. ' 'RETLOCATION NOT NECESSARY) 

^ncu °oA^*c (USER'S INITIAL AODR AND WC 

PUSHJ PDP.SAVDDL (ADJUST IN CASE THIS IS A SAVE OF A 

I HIGH SEGMENT, WHICH WAS MOVED IN CORE 

I DURING I/O WAIT, 
MOVE AC1,TAC 

HRRZ TAC,-2(P0P) (GET INITIAL BLOCK NUMBER-1 

ADD ACl.CXWD BLKS I ? , PLKS I E3 (SET UP ADDRESS, WORD COUNT, AND LOGICAL 
iSmpi in nrnn,r IBLOCK NUMBER FOR THE LAST (PARTIAL) BLOCK 
JUMPL AC1,DFD02C IQF THIS DUMP MODE OUTPUT REQUEST. 
SUB ACl-CXWD BLKSIH.PLKSIH] 



DF002DI 



HLL AC2,AC1 
AOOI AC1,(PR0G) 
HLL AC1,AC2 
MOVE AC2,(AC1) 
MOVEM AC2,<TACl) 
AOBJP TACl, . 
AOBJN AC1,DF002D 
DFD02EI SETHM (TACl) 

AOBJN TACliDFD02E 
PUSHJ PDP,MaoUT 



(SAVE LH 

(RELOCATE USER'S ADDRESS 

(IN CASE OF nVERFLOW INTO LH(2 SEG SAVE) 

(MOVE Data from end of user's 
(OUTPUT area ot monitor buffer 



(HERO out the remainder OF THE MONITOR BUFFER 



255000 
260140 
262146 
205100 
273106 



000000 

003654' 

000020 

000200 

000020 



JFCL 

PUSHJ pdp.clrbuf 

POP PDP,DSK6UF(0FVDAT) 
MOVSI TACl.BLKSIE 



002326 327100 002336' 



002327 

002330 

002331 
002332 
002333 
002334 
002335 
002336 



200046 
260140 

202041) 
200043 
271040 
260140 
254000 
262140 



000020 DFD02GI 
002300' 

000020 

777777 

000001 

004112' 

002407' 

000004 



(WRITE OUT THE PARTICALLY FULL MONITOR BUFFER 

( WHICH CONTAINS THE LAST BLOCK OF THE DUMP MODE 

( MODE OUTPUT REQUEST 

( IGNORE ERROR RETURN 

(RELINQUISH THE MONITOR BUFFER 

(RETRIEVE ORIGINAL ADDRESS 
.„„„ , „ „ (WITH WORD COUNT THAT HAS LOW-ORDER BITS CLEARED 

ADDS TACl,DSKSUF(DEVnAT) i ADO IN BLOCK SIZE TO DETERMINE NUMBER '''■""" 

1 NUMBER OF FULL BLOCKS YET TO BE WRITTEN 
JUMPG TAC1.0FD02B iIF NO FULL BLOCKS TO BE WRITTEN SKIP OvrR 

( OUTPUT SEQUENCE 
MOVE TAC,DSKBUF(DEVDAT) [ORIGINAL ADDRESS AND WORD COUNT 
PUSHJ POP.SAVODL JADJUST IN CASE OF SAVE OF HIGH SEG 

) WHICH HAS MOVED DURING 10 WAIT 
MOVEM TACDSKBUFIDEVDAT) ISTORE BACK IN DDS 
MOVE TAC,-1(PDP) , WRITE THE BLOCKS 
ADDI TACl 
PUSHJ POP,MQOUT 

JRST DFDD7 lERROR 

DF002BI POP PDP.ITEM (RESTORE COUNT 



(TOSS OUT A SERIES OF CONSECUTIVE POINTERS 
002337 550706 000014 HRR2 AC2, DEVACC ( DEVDAT ) JGET RETRIEVAL POINTER POINTER 



nSKSRB 
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1625 










1626 


002340 


200660 


000016 


OFn03A; MOVE AC1,»AC2 


1627 


002341 


271700 


000001 


ADDI AC2,1 


1628 


002342 


602640 


777777 


TRNE AC1,-1 


1629 


002343 


264000 


002422' 


JRST DFD09 


1630 










1631 


002344 


3077916 


000037 


CAIG AC2,PTRN(DEVDAT) 


1632 


002345 


402020 


000016 


SETZM 9AC2 


1633 


002346 


661000 


000100 


TLO lOS.NMP 


1634 


002347 


202006 


000002 


MOVEM IOS,DEVIOS(DEVDAT) 


1635 


002350 


350243 


000000 


DrD03Bl AOS OAT, (POP) 


1636 


002351 


552256 


777777 


HRRZM DAT,-1(AC2) 


1637 


002352 


205240 


200000 


MOVSI DAT.PNTDIF 


1638 


002353 


436246 


000010 


ORM DAT,DEVOAD(OEVOAT) 


1639 










1640 








IFG CHKCNT.< 


1641 


002354 


200043 


777777 


MOVE TAC,-1(PDP) 


1642 


002355 


260140 


002330' 


PUSHJ PDP.SAVODL 


1643 


002356 


260140 


004473' 


PUSHJ PDP.CHKSUM 


1644 


002357 


506116 


777777 


MRLM TACl,-l(AC2) 


1645 








> 


1646 










1647 


002360 


303706 


000037 


CAILE AC2,PTRN(DEVDAT) 


1648 


002361 


254000 


002373' 


JRST DFD04 


1649 










1650 


002362 


200100 


004607' 


DPD03C! MOVE TACl.CXWO BLKS1?,BL 


1651 


002363 


272103 


777777 


ADDM TAC1,-1(PDP) 


1652 


002364 


367200 


002340' 


SOJG ITEM,0FD03A 


1653 


002365 


262140 


000005 


POP PDP.OAT 


1654 


002366 


542706 


000014 


HRRM AC2,DEVACC(0EVDAT) 


1655 


002367 


335003 


000000 


SKIPGE (POP) 


1656 


002370 


254000 


002233' 


JRST OFDOl 


1657 


002371 


262140 


000001 


POP PDP>TAC 


1658 


002372 


344600 


002223' 


AOJA UUO,DFDO0 



IIS POINTER ALREADY THERE? 

lYES 

(NO. IS THERE A NEXT ONE? 
(CLEAR NEXT POINTER 
IFLAG END OF POINTERS 

(PUT A POINTER IN CORE 
(STORE NEW POINTER IN DDB 

(SHOW THAT POINTERS IN DOB NOT«DISK 

(GET CHECKSUM 

(ADJUST ADR IN CASE OF HIGH SEG SAVE 



(more pointers? 
(last pointer in core 

ksiz:jincrement iowd 

(ANY MORE? 



(NOT FINISHED. GET NEXT SET 

(BACK UP POP 

(GO BACK FOR MORE 



DSKSRB 


- ALMOST 


DEVICE 


INOEPENn 




DUMP INPUT/OUTPUT 


1659 








1660 








1661 


002373 


5062^3 


000000 


1662 


002374 


260140 


003620' 


1663 


5)02375 


260140 


003131' 


1664 


002376 


260140 


003654' 


1665 


002377 


2017SI6 


000023 


166 6 


002400 


554203 


000000 


1667 


002401 


2540B0 


002352' 


1668 








1669 


002402 


242200 


777777 


1670 


002403 


3262^0 


002243' 


1671 


002404 


201040 


011000 


1672 


002405 


542060 


000015' 


1673 


002406 


254000 


002234' 


1674 








1675 








1676 








1677 


002407 


550046 


000021 


1678 


002410 


606040 


400000 


1679 


002411 


254000 


002336' 


1680 








1681 


002412 


554046 


000021 


1582 


002413 


260140 


004565' 


1683 








1684 


002414 


350043 


777777 


1685 


002415 


260140 


003464' 


1686 


002416 


373003 


000000 


1687 


002417 


254000 


002414' 


1588 


002420 


274140 


004610' 


1589 


002421 


254000 


002233' 


1690 








1691 








1592 








1693 


002422 


506203 


000000 


1694 


002423 


261140 


000015 


1695 


002424 


550056 


777777 


1596 


H02425 


260140 


003464' 


1597 


002425 


262140 


000016 


1598 


002427 


554203 


000000 


1699 


002430 


254000 


002350' 
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IWRITE POINTERS ONTO DISK 



DF004I HRLK ITEMitPDP) IS*VE COUNT OF BLOCKS TQ WRITE- 

PUSHJ PDP.SETBUF IFIND SOME 200 WORD AREA 

PUSHJ PDP.DFD4A IWRITE THEM 

PUSHJ PDP.CLRBUF ICLEAR THE AREA 
MDVEI AC2,PTRl(DEVnAT) (RESET AC2 TO FIRST POINTER 

HLR2 ITEM, (POP) (RESTORE COUNT OF BLOCKS TO WRITE 
JRST DF003C 

DF006I LSH ITEM,-1 (TRY FOR 1/2 EARLIER REQUEST 

JUMPN ITEM,DF001B (CONTINUE IF NON-ZERO 

MOVEI TACiNUMBIT (BITS/SAT BLOCK 

HRRM TAC, 9SATPTR (MARK SAT ENTRY FULL 

JRST DFDOIA (TRY ANOTHER SAT BLOCK 

(ERROR WHILE WRITING, IF WRITE-LOCK, FIX IT, 

0FD07I HRRZ TAC,DSKCNT(DEVDAT) (WRITE-L0CK7 
TRNN TACIOIMPM 

JRST DF002B (NO. TOO BAD. 

HLRZ TACDSKCNTIDEVDAT) 

PUSHJ PDP.SETWL (SET WRiTE-LOCK BIT IN SAT ENTRY. 

DF008! AOS TAC,-1(PDP) 
PUSHJ PDPiSETFRE 
SOSLE (POP) 
JRST DFD08 
SUB POPiCXWD 2,2] 

JRST DFDOl (TRY AGAIN. 

(WE ARE WRITING IN MIDDLE OF FILE, FREE THE OLD BLOCK, 

DFD09I HRLM ITEM, (POP! (SAVE BLOCK COUNT WITH BLOCK* 

PUSH PDP,AC2 (SAVE POINTER TO RETRIEVAL INFO IN DDB 

HRR? TAC,-1(AC2) (GET OLD BLOCK* FROM DOB 

PUSHJ PDP,SETFRE 

POP P0P,AC2 (RESTORE POINTER INTO RETRIEVAL INFO 

HLRZ ITEM, (POP) (RESTORE COUNT OF BLOCKS TO WRITE THIS ITERATION 

JRST DFC03B 
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DUMP INPUT/OUTPUT 

1700 (DUMP MODE INPUT, 

^702 EXTERNAL COMCHK , ADRERR 

17" P102431 6073!10 040000 DFDMP 1 I TLNN DE VDAT , LOOKB ' ^2°'*^Lrr!Ln r , , r 

17^5 P^02432 254000 004355- JRST DFERR2 INO. UNDEFINED FILE 

^706 0024^3 I03000 000040 TLNE lOS.IOEND , END-FILE? 

1707 002434 254000 002501' jRST 0^01" |YES 

170B 002435 521000 000020 TL? lOS.lO I INPUT STATUS 

1709 002436 202005 000002 MOVEM I OS . DEV I OS < DEVDAT ) 

in0 S02437 260l40 002221- PUSHJ PDP.COMCMK ICHECK lOWDS 

1711 i?ia?440 254000 002222' JRST ADRERR lERROR ,..«.„ 

7 2 00244? 336050 0000l4 DFD10. SKIPN TAC^UUO .PICK UP NEX OWO 

1713 002442 253140 000000 POPJ POP, NO MORE, LEAVE. 

1714 002443 603040 777777 TLNE TAC,-1 LH iERO? 

1715 002444 254000 002447- ^Sr,,P"'?r v?<; AKinTHFR LIST 

1716 002445 540500 000001 HRR UUOrTAC lYES. ANOTHER LIST. 

1717 002446 254000 002441- JRST DFDI0 
1718 

1719 002447 271040 000001 DFDI0AI ADD! TAC.l IFROM XWD -L . F I RST-AODRESS 

1720 002450 261140 000001 PUSH POP, TAG ISAVE IT 

1722 002451 554100 000001 HLRE TAC1,TAC IGET LENGTH FROM lOWD 

nil 002454 261140 000001 PUSH PDP.TAC MOWD FOR FIRST BLOCK 

1727 0B2455 550736 000014 HRRZ AC2 , DEVACC ( OEVDAT I IPICK UP FIRST POINTER 

I 28 0^2455 303705 000037 CAlLE *" , PTRN ( DEVOAT ) [ANY LEFT IN CORE? 

1729 002457 260140 002574- PUSHJ PDP,DFDI9 V^? ' .'^pnT^??| ?SrRr? 

1730 002460 335020 000016 SKIPN 9AC2 US * POII^^" THERE? 

1731 002461 254000 002500- JRST D^DIIB 2?ir^?il pniMTFR 

1732 002462 251160 000016 PUSH PDP,«»AC2 ISAVE THE POINTER 

1734 002453 200040 004607- MOVE TAG.CXWD SLKS I Z , BLKS IZ3 (INCREMENT lOWD 

1735 002464 272043 777776 AOOM TAC,-2(PDP) 

1735 002465 350005 000014 AOS DEVACC ( OEVOAT ) (NEXT POINTER 

^737 002465 350006 000022 AGS SETCnT ( DEVDAT ) (NEXT RELATIVE BLOCK 



nSKSBB 



1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 



"nfiMP°?NpST/D"piT°"^'^''^''^ °^^^ SERVICE ROUTINES (BUPROUGHS) 
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5502467 

002470 

PI02471 
002472 
002473 
002474 
002475 



002476 
002477 

002500 
002501 
002502 
002503 



335003 777776 DFOIi: SKIPGE -2(PDP) 
2540[»0 002504' jRST DF0I2 



200103 
202106 
200043 
260140 
255000 



IMORE TO GO? 
)YFS 



777777 

000020 
000000 
004110' 
000000 



274140 004611' 
344600 002441' 



DFOIIA: 



REPEAT 



*^S!5 TAC1,-1(P0P) INO, PROCESS THE FIRST BLOCK 
MOVEM TAC1,DSKBUF(0EVDAT) ISAY WHERE TO READ DATA 

pSs^J^PD^I'S^i ' = " ''''' ''''''' '^^°"* 

J'^'^L lERRORS IGNORED. 

0. < (TEMPORARILY DELETE THIS CODE DUE TO SAVE-GET PROSIEM. 

IFG CHKCNTi< ;COMPARE CHECKSUM 

MOVE TAC.-KPDP) 

PUSHJ PQP.CHKSUM 

HLRZ TAC,(POP) 

MOVEI AC1,I0DTER 

CAME TACTACl 

ORM AC1,DEVI0S(DEVDAT) 

MOVE inS,DEVI0S{nEV0AT) 

> 



SUB POP.CXWD 3,33 
AOJA UUO,DFni0 



IREMOVE INTERMEDIATE STORAGE FROM POL 
IGO RACK FOR MORE, 

IBACK UP PDP, REMOVE XWO AND lOWD 



274140 004510' OFDIIB! SUB POP.CXWD 2,2] 

^?7^SS I'^JtlV f"""'"' '^OVE lOS.CXWD lOEND.lOOENSryNS'MbRE" input" 

437006 000002 ORB I OS , DEV 1 OS ( DEVDAT) 

263140 £00000 popj PDP, 



OSKSRB 



■ ALMOST DEVICE INDEPENDENT DISK SERVICE ROUTINES (BURROUGHS) 
DUMP INPUT/OUTPUT 
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1766 








1767 








1768 








1769 


002504 


550706 


000014 


1770 


002505 


303706 


000037 


1771 


002506 


260140 


002574' 


1772 


002507 


336020 


000016 


1773 


002510 


254000 


002571' 


1774 


002511 


261140 


000016 


1775 


002512 


554043 


777775 


1776 


002513 


550116 


000000 


1777 








1778 


002514 


271040 


000200 


1779 


002515 


603040 


000001 


1780 


002516 


254000 


002531' 


1781 


002517 


271700 


000001 


1782 


002520 


307706 


000037 


1783 


002521 


336760 


000016 


1784 


002522 


254000 


002525' 


1765 


002523 


306117 


777777 


1786 


002524 


344100 


002514' 


1787 








1788 


002525 


200043 


000000 


1789 


002526 


274040 


000016 


1790 


002527 


242040 


000007 


1791 


002530 


254000 


002533' 


1792 


002531 


574043 


777775 


1793 


002532 


271700 


000001 


1794 


002533 


550106 


000014 


1795 


002534 


275116 


000000 


1796 


002535 


217000 


000002 


1797 


002536 


272106 


000022 


1798 


002537 


542706 


000014 


1799 


002540 


204100 


000001 


18P0 


002541 


506043 


000000 


1801 


002542 


540103 


777775 


18P2 








1803 


002543 


200043 


000000 


1804 


002544 


200041 


000000 


1805 


002545 


202106 


000020 


1806 


002546 


260140 


004110' 


1807 


002547 


255000 


000000 



(DUMP INPUT CONTINUED, 

lEIND A SERIES OF CONSECUTIVE BLOCKS TO READ AT ONCE 

DFDI21 HRRE AC2 , DEVAtC ( DEVDAT > IGET NEXT POINTER 



DFDI3i 



DFD14! 



DFDI5I 



DF0I6" 



CAILE AC2.PTRN(DEV0AT) 
PUShJ PDP,DFDI9 
SKIPN 9AC2 
JRST DFDI8 
PUSH PDP,AC2 
HLR2 TAC,-3(PDP) 
HRR£ TACl.(AC2) 

AODI TAC.BLKSI2 

TLNE TAC.l 

JRST DFDI5 

ADDI AC2,1 

CAIG AC2,PTRN(DEVDAT) 

SKIPN AC3,9AC2 

JRST DFDI4 

CAIN TACl,-l(AC3l 
AOJA TACl,DFDj3 



lANY MORE POINTERS IN CORE? 

INO GET SOME MORE 

lYES 

lEND-FIUE 

ISAVE PONTER TO POINTER 

IGET LENGTH OF REMAINING INPUT 

IGET BLOCK# FROM DOB 

lANY MORE TO READ? 

INO 



lEND-FIUE? 
lYES 

ISTILL CONSECUTIVE? 
lYES, LOOP 



i compute coumt 

idifference between pointers is # of blocks! 

icompute words 

iget length of input i 



MOVE TAC.CPDP) 

SUB TACfAC2 

LSH TAC.BLKP2 

JRST DFDI6 

HLRE TAC,-3(PDP) 

ADDI AC2,1 

HRRZ TACl,DEVACC(DEvnAT) ' 

SUBI TAC1,(AC2) 

MOVMS TACl 

ADOM TAC1,SETCNT(0EV0AT) 

HRRM AC2,DEVACC(DEV0AT) ISTORE NEW POINTER POINTER 

MOVS TAClfTAC 

HRLM TAG, (PDP) 

HRR TAC1,-3(PDP) 

MOVE TACIPOP) IGET POINTER TO FIRST RETRIEVAL POINTER FORiTHIS INPUT 

MOVE TAC,(TAC) IGET FIRST LOGICAL BLOCK* 

MOVEM TACliOSKBUF(DEVDAT) ISTORE CONTROLLING lOWD 
PUSHJ PDPpMQIN IREQUEST THE INPUT 

JFCL lERRORS IGNORED 



DSKSOB - ALMOST DEVICE INDEPENDENT DISK SERVICE ROUTINES (BURROUGHS) HACRn,V36 19S05 <l-JUN-69 PAGE 67 
DUMP INPUT/OUTPUT 

ISfia IDUMP INPUT CONTINUED, , „^ ^.,^ ,^,,,, 

18^9 ;1F THERE IS CHECKSUMMING, CHECK IT, ELSE INCREMENT lOWD 

1810 lANO LOOP, 
1811 

1812 002550 252140 000016 POP P0P,AC2 r.ur n,,e,,„„ r «r 

1813 IFLE CHKCNT,< I NO CHECKSUMMING 

1814 HURS AC2 

1815 SETCA AC2, 

1816 AOBJN AC2, ,♦! 

1817 ADDM AC2,-2(PDP) 

1818 > 

nil IFG CHKCNT,< rCHECK CHECKSUMS 

1821 002551 574100 000016 HLRE TAC1,AC2 ICHANCE WORD COUNT TO BLOCKS 

1822 002552 217020 000002 MOVMS TACl 

1823 002553 271100 000177 ADDI TACl , SLKS I ?-l 

1824 002554 242100 777771 LSH TAC1,-BLKP2 

1825 002555 213000 000002 MOVNS TACl 

1826 002556 504700 000002 HRL AC2,TAC1 

1827 002557 200043 777776 DFD17! MOVE TAC,-2(PDP) 

1828 002560 260140 004473' PUSHJ PDP.CHKSUM 

1829 002561 554056 000000 HLRZ TAC,(AC2) 

1830 002562 201740 100000 MOVEI AC3,I00TER 

1831 002563 312040 000002 CAME TACTACl 

1832 002564 260140 004511' PUSHJ PDP,CKREC2 

1833 002565 200740 004607' MOVE AC3,CXWD BLKS I E, BLKS I Z 3 

1834 002566 272743 777776 ADDM AC3,-2(PDP) 

1835 002567 253700 002557' AOBjig AC2,DFDI7 

1836 > 

1838 002570 254000 002467' JRST DFDU ISEE IF MORE INPUT REQUIRED 

1840 002571 200000 004612' DF0I8I MOVE lOS.CXWD 1 OEND , I ODEND] INO MORE INPUT 

1841 002572 437006 000002 ORB IDS , DEVIOS (DEVDAT ) 

1842 002573 254000 002471' JRST OFDllA 
1843 

1844 002574 603000 000100 DFDI9I TLNE IOS,NMP 

1845 002575 254000 002603' JRST OFDI10 )N0 

1846 002576 260140 003620' PUSHJ PDP,SETBUF IGET BUFFER 

1847 002577 260140 003012' PUSHJ PDP,GETPTR IREAO AND COPY POINTERS INTO DDB 

1848 002600 260140 003554' PUSHJ PDPtCLRBUF ICLEAR BUFFER 

1849 002601 550706 000014 HRRZ AC2 , DEV ACC ( DEVDAT I 

1850 002602 263140 000000 POPJ POP, 
1851 

1852 002603 201706 000023 DFO110I MOVEI AC2 ,PTR1 ( DEVDAT ) INO MORE POINTERS ON DISK 

1853 002604 542706 000014 HRRM AC2 ,DEVACC (DEVDAT ) 

1854 002605 402020 000016 SETEM 9AC2 

1855 002506 253140 000000 POPJ PDP, 



OSKSRB - ALMOST DEVICE INDEPENDENT DISK SERVICE ROUTINES (BURROUGHS) MACRO, V36 19(05 4-JUN-69 PAGE 51 
DUMP INPUT/OUTPUT 

1856 SUBTTL USETO/USETI 

1857 ISETO AND SETI UUOS 
1858 

1859 EXTERNAL MAITl 

1860 

1851 002607 260140 002611' DFSET! PUSHJ PDP,,*2 

1852 002610 263140 000000 POPJ PDR, 

1863 002611 603300 060000 TLNE DEVDAT , ENTRB+LOOKB IFILE OPEN? 

1854 002612 606600 777777 TRNN UU0,-1 J NON-ZERO BLOCK NUMBER ARGUMENT? 

1855 002613 254000 004355' JRST DFERR2 (NO. ERROR IN EITHER CASE 
1866 002614 260140 001505' PUSHJ PDPiWAlTl IWAIT FOR I/O TO COMPLETE 

1857 002615 260140 003647' PUSHJ PDP.SETBf-6 ISET UP A BUFFER 

1858 002616 200000 004612' MOVE lOS.CXWD lOEND i I OOENQ] ICLEAR EOF 
1869 002617 413006 000002 ANDCAB I OS . DEV lOS ( DEVDAT ) 

1870 

1871 002620 550106 000014 HRRZ TACl i DeVACC < DEVDAT ) 

1872 002621 550046 000022 HRR2 TAC , SETCNT ( DEVDAT ) IC(UUO) RH > C(SETCNT) RH? 

1873 002622 301054 000000 CAIL TAC,(UUO) MI.E, SHOULD WE GO FORWARD?) 

1874 002623 254000 002576' jRST 0FSET6 INO, GO BACKWARD 

1875 

1875 002624 275106 000037 SUBI TACl , PTRN ( DEVDAT ) )YES, DESIRED POINTER IN CORE? 

1877 002625 274040 000002 SUB TACTACl 

1878 002626 301054 000000 CAIL TAC,<UUO) 

1379 002627 254000 002660' JRST 0FSET3 |YES 

1880 

1881 002630 550106 000015 HRRH TACli DEVCNT(DEVDAT) 

1832 002631 271100 000177 ADDI T ACl , BLKS I Z-l 

1883 002532 242100 777771 LSH TAC1,-BLKP2 

1834 002633 315100 000001 CAMGE TACl.TAC lANY MORE POINTERS ON DISK? 

1885 002534 254000 002650' JRST OFSETX |N0 

1886 002535 542046 000022 HRRM TAC, SETCNT ( DEVDAT ) 

1887 002635 200046 000010 MOVE TAC, DEVOAD ( DEVDAT ) lYES, ARE POINTERS IN CORE THE SAME 

1888 002537 607040 200000 TLNN TAC,PNTOIF IAS ON DISC? 

1889 002640 254000 002545' JRST OFSETl lYES 

1890 002641 661000 000100 TLO lOS.NMP ISET "DO NOT READ NEXT POINTERS" 

1891 002642 202006 000002 MOVEM lOS , DEVI OS < DEVDAT ) 

1892 002643 260140 003131' PUSHJ P0P,DF04A »N0, WRITE THEM OUT 

1893 002644 625000 000100 TLZA IOS.NMP |ND NEED TO READ 
1894 

1895 002645 260140 003262' DFSETll PUSHJ PDP.RRI IREAD THEM IN 

1695 002646 202005 000002 MOVEM I OS . DEV I OS ( DEVDAT ) 

1897 002647 250140 003311' PUSHJ P0P,SET176 IIS THIS THE FIRST POINTER BLOCK? 

1898 002650 200050 000002 MOVE TAC,»TAC1 

1899 002651 505040 777777 TRNN TAC,-1 

1900 002652 254000 002707' JRST DFSeTB (YES 

1901 002653 550045 000016 HRRE TAC, OEVBLK (DEVDAT) UN BLOCK WERE CURRENT ONE, 

1902 002654 275040 000001 SUBI TACl 

1903 002655 213000 000001 MOVNS TAC 

1904 002656 272046 000022 ADDM TAC , SETCNT (DEVDAT ) 

1905 002657 254000 002711' JRST DFSETC 



DSKSRB 



1936 

1907 

1908 

19i;i9 

1910 

1911 

1912 

1913 

19H 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 



■uSe7S/Jse""' ''"^P^'-^^^^ °'SK service routines (BURROUGHS, 
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002660 

5102660 
002661 
002662 
002663 
002664 
002665 
002666 
002667 
002670 
002671 
002672 
002673 
002674 
002675 



002676 
C02677 
002700 
0027C1 



002702 
5502703 
002704 
002705 
002706 



550046 
271040 
242040 
301054 
254000 
2050021 
437006 
354000 
550040 
550106 
276040 
272106 
542046 
254000 



275106 
274040 
307054 
254000 



200046 
603040 
260140 
550046 
260140 



000023 
000002 
000000 
002670' 



000010 

200000 

003131' 

000012 

003316" 






0FSET3; 



000015 

000177 

777771 

000000 

002670' 

000040 

000002 

000001 

000014 

000022 

000002 

000014 

000022 

003654' 



lsS'tac'-bupI'^' iconvert to blocks 
cail tag, (uuo) 

JRST DFSET5 ,^0. ALL OK 

►lOVSI lOS.IOEND .YES, END-F LE 

lORe I0S,0EVI0S(DEV01T) ^ ' 

0FSET5I Srrz tag, UUO '.III nrV, Jn"^'^ /J °'^^ ^^^'"~'° ""AST EXISTING 

^S^.^ -,^J-^I-r(OEVOAT,lR^^EP°A^-«?g K S-^^ -TO TAG 

ADOM TACl,DEVACC(DEvnAT) 

"^R^? ;!:*S'^^^^'^T(DEVOAT) , RESET SETCNT 

JK5.T CLRBUF .CLEAR ANY DUMP BUFFER AND LEAVE 

'THE DESIRED POINTER IS BEFORE THE CURRENT ONE. SEE IF IT IS IN CORE. 

DFSET6! SUB] TACl.PTRKDEVOAT) 
SUB TACTACl 
CAIG TAG, (UUO) 
-"'^' "^^SETTS .POINTER IS IN CORE 

'THE DESIRED BLOCK IS BEFORE THE CURRENT ONE. SEARCH FROM THE BEGINNING 

TLNE TAC;PNT0?r'°"°*'' "'' "'^^"^ '^ =°«^ ^A^E AS ON 0,SC7 
PUSHJ PDP.OFOlA JNO, WRITE THEM nilT 

pSs^u'pSp°L'?p^^r"°*^' '¥ BtOCK/SrF?^ST R,B 
HUSHJ PUP.SETPTR IREAD FJRST RIB 



OSKSRB -^ALMOST^DEVICE INOEPENaENT DISK SERVICE ROUTINES (BURROUGHS) MACRO, V36 19i05 4.JUN-69 PAGE 63 

19^2 002707 201B40 000001 DESETBI MOVE I TACl IRESET SETCNT 

1943 002710 5420<(6 000022 HRRM TAC , SETCNT ( OEVDAT ) I "POS I T I ONED" AT RELATIVE BLOCK 1 

\IaI llll^l V'^lVl llWVi, °''^^^'^' ^''"^ TAC.DSKBUFCOEVDATJ ISET TAC TO FIRST POINTER 

WTi 111111 ll'ltl ZUir ?orz'o:°%'lll'' ..s this the f.rst pointer block, 

1948 002714 606240 777777 TRNN DAT,-1 

1950 ^027,^^ llloll IZlll *°'" TACDIRSIZ ,yES, SKIP OVER 4 WORDS 

1950 002716 554260 000002 hLRZ DAT.STaCI ISLOCK FULL? 

1951 002717 275100 000001 subi TACl.l lOLU^n r ull r 

1952 002720 326240 002723' JUMPN DAT.DFSETD (YES 

1953 002721 336020 000002 SKIPN STACl |N0, MOVE TACl TO LAST PniMTFR 

1954 002722 364100 002721' SOJA TACl,.-l ^ ^ POINTER 
1955 

1956 002723 550646 000022 DFSETOl MRRZ ACl , SETCNT ( DEVDAT ) 

1957 002724 275641 000000 SUBI ACl. (TAC) )IS DESIRED POINTER HERE? 

1958 002725 550700 000002 HRRZ AC2,TAC1 ut=lKLU KUiNTtH HERE? 

1959 002726 270700 000015 ADD AC2,AC1 

1960 002727 301714 000000 CAIL AC2,(UU0) 

1961 002730 254000 002737' JRST DFSET7 ,yES 

1962 002731 271700 000001 ADDI AC2,1 , NO ? GET NEXT BLOCK 

1963 002732 542706 000022 HRRM AC2 I SETCNT ( DEVDAT ) 

1964 002733 322240 002747' JUMPE DAT,0FSET8 ,AMY MORE POINTER BLOCKS? 

9 6 ZV,\'^ IITA ll\l^\ '°'^'' fAT,DEVBLK(DEVDAT) ^YESrsiT Sp TO REaS'nEXT BLOCK. 

1966 002735 260140 003262' PUSHJ PDP.RRI oL.ui,r\. 

1967 002736 254000 0027H' jRST DFSETC 
1968 
1969 

Jo7? Zi'.i'o, V-,H\l llll^i ^^■SZnx HRRZ TAC.UUO .RESET RIGHT HALF OF OEVBLK 

1971 002740 274040 000015 SUB TAC. ACl 

1972 002741 550106 000020 HRRZ TACl , DSKBUF ( DEVDAT ) 

1973 002742 274040 000002 SUB TAC, TACl 

1974 002743 542046 000016 HRRM TAC, OEVBLK ( OEVDAT ) 
1975 



,„,^ „„^,,, ^^„ , „ 'THE BLOCK CONTAINING THE POINTER IS FOUND. 
1970 002737 550040 000014 DFSET7t HRRZ TAC.UUO IRESET RIGHT 

000015 SUB TAC, ACl 



\V-X IIWM Vl^Vi. SS?"" ^""^ UUO,SETCNT(D£VDAT) IRESET SETCNT 

1977 002745 260140 003016' PUSHJ PDP,0F1N4 JGET POINTERS 

1978 002746 254000 003654- JRST CLRBUF J^LEAR InY SuMP BUFFER AND LEAVE 

1'80 IR^M oyT OF POINTERS 

1981 

1982 002747 271100 000001 DFSETBl ADDI TACl.l 

1983 002750 550046 000020 HRRZ TAC, OSKBUF ( DEVDAT) 

1984 002751 274100 000001 syg TACl, TAC 

1985 002752 542106 000016 HRRM TACl . OEVBLK ( DEVDAT ) 

1986 002753 661000 000140 TLO lOS.NMPMOEND ISET END 
19H7 002754 202006 000002 MOVEM I OS , OEV I OS ( DEVOAT) 

1988 002755 260140 003162' PUSHJ PDP,DF06A ICLEAR POINTERS 

1989 002756 254000 003654' JRST CLRBUF ,cLEAR ANY DUMP BUFFER AND LEAVE 



DSKSRB - ALMOST OEVICE INOEPENOENT DISK SERVICE ROUTINES (BURROUGHS) MACRO, V36 19S05 4-JUN-69 PAGE 54 
USETO/USETI 

1990 SUBTTU INPUT/OUTPUT UUO'S. RETRIEVAL POINTER PROCESSING 

1991 I INPUT UUO 

1992 l» INDICATES INTERRUPT LEVEL 
1993 

1994 EXTERNAL AOVBFF 

1995 

1996 

1997 002757 607300 040000 DFIN; TLNN OEVDAT.LOOKB IFILE OPEN? 

1998 002760 254000 004355' JRST DFERR2 INO, UNDEFINED FILE 

1999 002761 6210«'0 000020 TLZ lOS.IO ISET INPUT INDICATION 
?0fl0 

2001 002762 603000 000040 DFINl! TLNE lOS.LIR l*ANY MORE INPUT? 

2002 002763 263140 000000 POPJ POP, l«NOt LEAVE 
2003 

2004 002764 550106 000014 HRRZ TACl, DEVACC ( OEVDAT ) (• 

2a"'5 002765 303106 000037 CAILE TACl , PTRN ( DEVDAT ) l»POINTER LIST EMPTY? 

2006 002766 254000 003005' JRST DFIN2 l*YES 

2007 002767 336020 000002 SKIPN 9TAC1 (•NO--END OF FILE? 

2005 002770 254000 002777' JRST OFINIE l»YES 
2009 

2010 002771 306106 000037 CAIN TACl, PTRN ( DEVDAT ) l*NO--IS THIS THE LAST POINTER 1 

2011 002772 254000 003002' JRST DFlNlB l»YES 
2012 

2013 002773 336002 000001 OFINlDl SKIPN KTACl) |oN0 

2014 002774 661000 000040 TLO lOS.LlR ("SET LAST INPUT FLAG 
2315 002775 202006 000002 DFINIAI MOVEM I OS . DEV I OS < DEVDAT ) l« 

2016 002776 254000 004066' JRST QIN I* 
2017 

2018 002777 661000 000040 DFINIEI TLO lOS.LIR l»EMPTY FILE 

2019 003000 202006 000002 MOVEM I OS , DEV lOS ( DEVOAT ) ;• 

2020 003001 263140 000000 POPJ POP, »• 
2021 

2022 

2023 003002 603000 000100 OFINlBt TLNE lOS.NMP )»ANY MORE POINTERS OM DISK? 

2024 003003 661000 000040 TLO lOS.LIR l»NO, THIS IS THE LAST READ 

2025 003004 254000 002775' JRST DFINIA |» 
2026 

2027 003005 202006 000002 DFIN2I MOVEM I OS . DEV I OS ( DEvnAT ) 

2028 003006 260140 003630' PUSHJ PDPiSETBFI I CHOOSE NEXT INPUT BUFFER TO HOLD RETRIEVAL POINTERS 

2029 003007 260140 003012' PUSHJ PDPiGETPTR IREAD RIB AND COPY POINTERS INTO DDB 

2030 003010 550106 000014 HHRZ TACl , DEVACC (DEVOAT) 

2031 003011 254000 002773' JRST DFINID 
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INPUT/OUTPUT UUO'S. RETRIEVAL POINTER PROCESSING 

2032 iNEED NEW POINTERS FROM DISK 
2033 

2034 003012 200706 000010 GETPTRl MOVE AC2 , DEVOAD < DEVDA T ) IPOINTERS DIFFER? 

2035 003013 603700 200000 TLNE AC2,PNTDIF 

2036 003014 254000 003131' JRST DF04A JYES, WRITE THEN READ AND RETURN 

2037 003015 260140 003262' PUSHJ PDP.RRI )N0, READ BLOCK 
2038 

2039 003016 201706 000023 DFIN4i MOVEI AC2 ,PTR1 ( DEVDAT ) IRESET OEVACC 

2040 003017 542706 000014 HRRM AC2 , DEVACC (DEVDAT ) 

2041 003020 200046 000016 MOVE T AC , OEVBLK ( DEVDAT ) IRESET DEVBKO 

2042 003021 202046 000017 MOVEM TAC . DEVBKO ( DEVDAT ) (BLOCK # WORD INDEX OF A CURRENT RETRIEVAL PACKET 

2043 003022 260140 003314" GTPTRll PUSHJ PDP,SET000 (SET TACl TO FIRST WORD OF RIB 

2044 003023 200006 000002 MOVE I OS , DEV lOS ( DE VDAT) 

2045 003024 550746 000016 HRRZ AC3 , DEVBLK ( DEVDAT ) (WORD INDEX OF RETRIEVAL POINTER PACKET 

2046 003025 270740 000002 ADD AC3,TACl IAC3 POINTS TO NEXT POINTER WITHIN RIB 

2047 003026 271100 000176 ADDI T ACl , BLKS I H-2 ITACl POINTS TO WORD 127 
2048 

2049 003027 201646 000037 MOVEI ACl . PTRN ( DEVDAT ) I DDB END CHECK 

2050 003030 311740 000002 DFIN5I CAML AC3,TAC1 (POINTER BLOCK EMPTY? 

2051 003031 254000 003053' JRST DFIN7 lYES, GET SOME MORE 
2052 

2053 003032 200060 000017 MOVE TAC,SiAC3 (GET RETRIEVAL POINTER 

2054 003033 202060 000016 MOVEM TACi»AC2 (STASH IN DD9 

2055 003034 271740 000001 ADDI AC3,1 

2056 003035 322040 003063' JUMPE TAC.DFIN8A 10 MEANS NO MORE RETRIEVAL POINTERS 

2057 003036 302656 000000 CAIE AC1,(AC2) IDDB FULL? 

2058 003037 344700 003030' AOJA AC2,DFIN5 (NO, GET ANOTHER 
2059 

2060 003040 311740 000002 CAML AC3,TAC1 (YES, ANY MORE FOR NEXT TIME? 

2061 003041 513020 000017 HLLZS 9AC3 (END OF RIB REACHED, ACE(LH) IS LINK TO NEXT RIB 

2062 003042 336028 000017 SKIPN 9AC3 (NEXT POINTER»0 OR LINK«0, 

2063 003043 661000 000100 TLO IOS,NMP (SET "NO MORE POINTER" 
2064 

2065 003044 202006 000002 DFIN6AI MOVEM I OS , DEVIOS ( DEVDAT ) 

2066 003045 200106 000020 MOVE TACl , DSKBUF ( DEVDAT ) (POI NT TO FIRST WORD OF RIB 

2067 003046 275742 000000 SUBI AC3,(TAC1) (COMPUTE NEW INDEX 

2068 003047 542746 000016 HRRM AC3 , DEVBLK ( DEVDAT ) (STORE INDEX TO NEXT RETRIEVAL POINTER PACKET 

2069 003050 205640 200000 MOVSI ACl.PNTDIF (CLEAR "POINTERS DIFFER" 

2070 003051 412646 000010 ANDCAM ACl t DEVOAD ( DEVDAT ) (SINCE DDB IS COPY OF RETRIEVAL DATA, 

2071 003052 263140 000000 POPJ PDP, 



DSKS'?B 



2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
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003053 
003054 
003055 
003056 
003057 
003060 
003061 
003062 
003063 
003064 



554060 
322040 
206046 
261140 
260140 
262140 
254000 
202060 
661000 
254000 



000002 

003062' 

000016 

000016 

003262' 

000016 

003022' 

000016 

000100 

003044' 



003065 260140 000000 

003066 263140 000000 

003067 550106 000014 

003070 303106 000037 

003071 263140 000000 

003072 254000 002762' 



DFIN7I 



DFIN8I 
0FIN8AI 



HLRZ TACPTACl IRI8 LINK To TAC RH 

JUMPE TAC.DFINS lOONE IF LINK=0 

MOVS^' TAC.DEVBlK(OEVDAT) ;SET block*!, word index for next PACKET 

PUSH P0P,AC2 

PUSHJ PDP.RRI (READ THE RIR 

POP PDPiAC2 

JRST GTPTRl 

MOVEM TAC,9AC2 (0 WORD IN DOB MARKS END 

TLO IOS.NMP INO MORE POINTERS ON DISK 

JRST DFIN6A 



(ENTER HERE AT INTERRUPT LEVEL TO READ ANOTHER SLOCK 



DFINXI PUSHJ POPiADVBFF 
POPJ POP, 



J»ANV MORE EMPTY BUFFERS? 



HRR2 TACl,DEVACC(OEVnAT) )»POINTER LIST EMPTY? 
CAlLE TAC1,PTRN(DEVDAT) !• 
POPJ POP, )• 



JRST DFINl 



(•"^O, FILL NEXT ONE 
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2093 (OUTPUT UUO 

2095 EXTERNAL WSYNCiAOVBFE 

Illy ..3073 6073.0 <^2^mi DFOUTi TLNN g^VnAT.ENTRB rNO^'uSoEn NED FILE 

2098 003074 254000 004355- i^„ ,Sc ,^ SET OUTPUT INDICATION 

2099 003075 661000 000020 TLO lOS.IO , „^ , „r„„.. / ^^^ ° '^ 

2100 003076 202006 000002 ^OVEM I OS , DEV I OS ( DEVDAT ) 

2iS2 003077 550246 000014 DFOUTl. HRRi DAT , DEVACC ( DEVDAT ) ..GET POINTER LOC 

IFGCHKCNTi< 

2105 003100 550046 00001B MR"? TAC, DEVOAD (DEVDAT ) .• 

Ii06 003IS1 270040 004613- ADD TACCXWD NBLKSH,2] .. 

'2 07 003 02 260140 004473- ^^f "^^S: ''^Ar' ^ ' 

2108 003103 506120 000005 HRLM TAC1,90AT • 

2109 003104 205100 200000 MOVSI TACl.PNTDIF I" 
2n0 003^05 436106 000012 ORM TACl, DEVOAD ( DEVDAT 1 .. 

2112 003106 550060 000005 HRRZ TAC.^DAT ', r^s' 1f' JuSp' * ''°'''"' 

nil TAii iiiiM ^^ ^^^ro ;^P sro^vDAT, i^Ti... one, 

2115 003111 402005 000001 ?rn^IQS SfiJ »SET "NO MORE POINTERS" 

511A 01013112 661000 000100 TLO lObiNPii' i"jti 

IWz 003120 261140 000005 :^^" Tdp?S?gETF UgET A FREE BLOCK 

2123 003121 260140 003371' „„ „„„ nlr « 

2124 003122 262140 000005 POP POP. DAT I « 

WW IFG CHKCNT.< 

7 003123 542060 000005 „,, cHK^t:/*'""*'' 

V:%1 MOVSI TACl.PMTDIF 

l\ll ORM TACl,DEvnAD(DEVDAT) 

V^. MOVEM TAC.9iDAT> 

^13^ 003124 302246 000037 DF0T3A. CAIE DAT PTRN (DEVDAT , j ^JjI^T^FULL. ^^^ ^^^^^ 
2134 003125 254000 004067' JnaT uuu 1 
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lOUTPUT UUO CONTINUED. 

)UT POINTER LIST. 

PUSHJ PDP.SETBFO ICHOOSE AN OUTPUT BUFEER TO READ RIB INTO 

PUSHJ PDP,QOUT IPUT REQUEST IN QUEUE 

PUSHJ PDP.WSYNC IWAIT TIL DATA WRITTEN 

MOVE TAC,DEVBKO(DEVOAT) IRESET DEVBLK TO REFER TO RETRIEVAL POINTERS 
MOVEM TAC.DEVBLK(DEVPAT) (NOW IN ODB 

yOVE TACDEVDAOIDEVDAT) lANY POINTERS BEEN WRITTEN? 

TLZE TACVRGPTR 

PUSHJ PDP.DF07A INO, CREATE NEW BLOCK. SKIP NEXT INSTRUCTION, 

PUSHJ PDP.RRI IREAD RETRIEVAL BLOCK 

MQVEI AC3.PTR1!DEVDAT) 

PUSHJ PDP,SET00a ITACl POINTS TO RIB 

HRRZ AC2,DEVBLK(DEV0tT) IINDEX INTO RIB 

ADD AC2.TAC1 [ABSOLUTE POINTER INTO RIB 

ADOI TACl,BLKSIZ-2 (END OF RIB DATA 

MOVE ACl,?AC3 (GET RETRIEVAL POINTER FROM DOB 

JUMPE ACl,DF0UT6 10 SIGNALS ENO 

CAML ACa.TACl IBLOCK FULL? 

JRST DF0UT7 lYES. WRITE IT OUT 

MOVEM AC1.«>AC2 ISTASH POINTER IN RIB 

ADDI AC2,1 

CAIE AC3,PTRN(DEVDAT) lOONE? 

AOJA AC3,DF0UT5 

MOVE TACl.DSKBUFIDEVDAT) (POINT TO RIB 

SUBI AC2,(TACl) JFORM INDEX 

HRRM AC2,DEVBLK(DEVDAT) ISTQRE INDEX TO RETRIEVAL POINTERS 

MOVSI AC2,PNTDIF ICUEAR "POINTERS DIFFER" 

ANDCAM AC2iOEVOAD(OEVDAT) 

PUSHJ POPfWRI (WRITE THE BLOCK 

MOVEI TAC.PTRKOEVOAT) 

HRRM TAC.DEVACCIDEVDAT) (DEVACC NOW POINTS TO FIRST POINTER IN DOB 

SETZM «>TAC (CLEAR FIRST POINTER 

TLNN IOS,NMP (MORE POINTERS? 

JRST DFIN4 (YES, BRING THEM IN AND LEAVE 

MOVE TAC,DEVBLK(DEVDAT) 

MOVEM TAC.DEVBKOCDEVDAT) (SAVE BLOCK*, WORD INDEX OF CURRENT POINTER PACKET 

POPJ PDP, 



2135 






(OUTPUT 


2136 






(WRITE 


2137 








2138 


003126 


260140 


003634' 


2139 


^03127 


260140 


004067' 


2140 


003130 


260140 


000616' 


2141 








2142 


003131 


200046 


000017 DF04Ai 


2143 


003132 


202046 


000016 


2144 








2145 


003133 


200046 


000010 


2146 


003134 


623040 


100000 


2147 


003135 


260140 


003172' 


2146 


003136 


260140 


003262' 


2149 


003137 


201746 


000023 


21'50 








2151 


003140 


260140 


003314' DF04B! 


2152 


003141 


550706 


000016 


2153 


003142 


270700 


000002 


2154 


003143 


271100 


000176 


2155 


003144 


200660 


000017 DF0UT51 


2156 


003145 


322640 


003154' 


2157 


003146 


311700 


000002 


2158 


003147 


254000 


003200' 


2159 


003150 


202660 


000016 


2160 


003151 


271700 


000001 


2161 


003152 


302746 


000037 


2162 


003153 


344740 


003144' 


2163 








2164 


003154 


200106 


000020 DF0UT6I 


2165 


003155 


275702 


000000 


2166 


003156 


542706 


000016 


2167 


003157 


205700 


200000 


2166 


003160 


412706 


000010 


2169 


003161 


260140 


003274' 


2170 


003162 


201046 


000023 DF06AI 


2171 


003163 


542046 


000014 


2172 


003164 


402020 


000001 


2173 


003165 


607000 


000100 


2174 


003166 


254000 


003016' 


2175 


003167 


200046 


000016 


2176 


003170 


202046 


000017 


2177 


003171 


263140 


000000 
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2i78 003172 202046 000010 DF07AI MOVEM TAC, DEV04D ( DEVPAT ) iSAVE VRGPTR BIT 

l}ll 0^^173 260140 003304' PUSHJ PDP.SET177 )SET TACl TQ WORD 128- 

2180 003174 402020 000002 SET2M 9TAC1 ICLEAR BLOCK* WORD 

2181 003175 350003 000000 ADS (PDP) (ALWAYS SKIP RETURN 

l^ll I'il^l^ 261140 000017 PUSH PDP,AC3 IBECAUSE ENTRY FROM NEWRIB PUSHES AC3 

2183 003177 254000 003215' JRST DFOUTS 

2184 

2185 003200 260140 003202' DF0UT7| PUSHJ PDP.NEWRIB 

2186 003201 254000 003140' JRST DF04B 
2187 

2188 003202 261140 000017 NEWRIBl PUSH PDP,AC3 (CREATE A NEW RETRIEVAL BLOCK 

2189 003203 260140 003311' PUSHJ P0P,SET176 isET TACl TO LINK WOrS 

2190 003204 510060 000002 HLL2 TAC,9TAC1 )LINK TO NEXT POINTER BLOCK ALREAflY PRFt;rWT7 
nil Zmi llT.l T.i'.V, 'T' ^*t:.DF0UT9 !yES. WRI?E CURRENt"ne'SSS REA *N°ExrONE 
IVol SStIS? ItlV.l T.iry ''^^^-^ PDP,0FGETF jnO, get a BLOCK FOR POINTERS IN TAC 

2193 003207 554746 000016 HLRZ ACS . DE VBLK (OEVOAT ) (BLOCK* OF CURRENT RiB 

l^l^ Zll^, I'^A'Stt ^fS^'. flOVSM TAC, OEVBLK(DEVDAT) (STORE BLOCK#, INDEX FOR NEW BLOCK 

2195 003211 260140 003311' PUSHJ PDP,SET176 (SET TACl TQ WORD 127 AGAIN 

2196 003212 50606B 000002 hRLM TAC.OTACl ILH LINKS To NEW BLOCK 

2197 003213 200040 000017 MOVE TAC, ACS (BLOCK* OF CURRENT BLOCK 

2198 003214 260140 003275' PUSHJ PDP,WRIA (WRITE THE BLOCK OUT 

2200 003215 200106 000020 DFOUTBt MOVE T ACl , DSKBUF ( DEVOAT ) (POINT TO BUFFER CONTAINING RIB 

2201 NOSCHEDULE* 

2202 003216 700600 002024' CONO PI.DSKOFF 

2203 003217 607000 000200 TLNN lOS.UBFS [DUMP MODE? 
22?4 003220 270100 000007 ADD TACl, PROG INO, RELOCATE 

2205 003221 201042 000001 mqvei TACKTACl) (DESTINATION 

2206 003222 504040 000002 hRL TAC, TACl (SOURCE 

2207 003223 402002 000000 SETZM (TACl) 

2208 003224 251042 000175 BLT TAC, BLKS I Z-3 ( TACl ) (ZERO OUT FIRST 126 WORDS 
2210 Zllll llllW lll^ll '°'^ TAC.BLKSIZ-KTACl) (BLOCK* OF CURREN? RIB 

2210 003226 552042 000176 HRRZM TAC . BLK&IZ-2( TACl ) (SET "PREVIOUS" POINTER .CLEAR LINK TO mFXT 

2211 003227 402002 000177 SETZM BLKS IZ-K TACl ) (CLEAR WORD 128. ^° "^^^ ' ' ^^EAR LINK TO NEXT 

2212 SCHEDULEf 

2213 003230 700600 002250' CONO PI.DSKON 

2214 003231 262140 000017 DF08A( "QP PDP,AC3 

2215 003232 263140 000000 pQpj pop, 

lii 0^^^^^ MZl mill °'°''" ^;:,^HJAC DEVBLK.DEVDAT, ;S*VEN,« BLOCK* INDEX. GET OLD BLOCK* I.DE. 

2219 003235 260140 003275' PUSHJ PDP.WRIA WRITE THIS BLOCK OF PniwTrB<! niiT 

nil ziiv. if.iz miiw 7.iv:z'r !-i;^E^^^B^fe?K"orpS?i?ElrIS^^ 



"""' ■.NPO?%u?^U^^^Su^^s""S.°?.^I,SirP^?^?^^%.^°^,^L^?^,'^^-°-^^' -"°-- ^-- --N- PAS. .. 



2222 








2223 








2224 








2225 








2226 


003240 


260140 


000000 


2227 


003241 


263140 


000000 


2228 


003242 


331000 


000000' 


2229 


003243 


263140 


000000 


2230 


003244 


550105 


000014 


2231 


003245 


301106 


000037 


2232 


003246 


263140 


000000 


2233 


003247 


550060 


000015' 


2234 


003250 


606040 


400000 


2235 


003251 


301040 


011000 


2236 








2237 


003252 


263140 


000000 


2238 


003253 


261140 


000015 


2239 


003254 


261140 


000015 


2240 


003255 


260140 


003077' 


2241 


003255 


262140 


000016 


2242 


003257 


262140 


000015 


2243 


003260 


263140 


000000 



iENTEH HERE 4T INTERRUPT LEVEL TO WRITE ANOTHER 
EXTERN MJOBN 

DFOUTXi PUSHJ PDP.-ADVBFE (.ANY MORE TO DO? 

POPJ POP, ,, 

POP^'" Snp" '•°° '^" CONTINUE THIS OUTPUT AT INTERRUPT 

Zi TAC:?0EVACC<DEVOAT,':.^E^EVTr.R^y^E°p*S?iT\R\^? '"''' '' "^^^°' 

CAIL TAC1,PTRN(0EVDAT) I. 

POPJ POP, |, 

TRN^ TAr'y^Sir' ^CURRENT SAT BLOCK FULL? 

TRNN TAC.WLBIT mOR WR I TE-LOCKED? 

CAIL TAC,NUMBIT*MJOBN' |.B£ SURE TO LEAVE ATLEAST JOBN FREE BLOCKS 

Bopj pQp^ 'J° THAT EACH JOB CAN HAVE ONE MORE 

PUSH POpIaCI ,« 

PUSH PDP,AC2 J* 

PUSHJ POP.OFOUTl J* 

POP PDP.AC2 ,. 

POP PDP.ACl |« 

POPJ POP, ,» 



KSRB 



2244 
2245 
2246 
2247 
2248 
2249 
225B 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2256 
2259 
2260 
2261 
2262 

2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
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SUBTTL READ/WRITE RETRIEVAL POINTERS 
) INPUT A RETRIEVAL BLOCK. 
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003261 334046 000012 RRIB! 



003262 
003263 
003264 
003265 
003266 
003267 
003270 
003271 
003272 



003273 
003274 
003275 

003276 

003277 

003300 

003301 
003302 
003303 

003304 
003305 
003306 
003307 
003310 

003311 
003312 
003313 

003314 

003315 



554046 
260140 
254000 
260140 
554046 
200660 
302055 
254000 
263140 



000016 RRI! 

004110' RRIAI 

004457' 

003304' 

000021 

000002 

000000 

004457' 

000000 



SKIPA TAC,DEVEXT(DEVOAT) iREAO FIRST RETRIEVAL BLOCK 
HLR2 TACDEVBLKCDEVOAT) IHEAD NEXT RETRIEVAL BLOCK 



PUSHJ PDP.MQIN 

JRST RERA 

PUSHJ PDP,SET177 



HLRZ TAC,DSKCNT(DEVOAT) IBLOCK# EXPECTED 



IREAD RETRIEVAL BLOCK SPECIFIED BY TAC ON ENTRY 
lERRORS, YOU LOSE 
ICHECK RH OF WORD 128 



MOVE ACl.STACl 

CAIE TAC, (ACD 

JRST RERA 

POPJ POP, 



IGET SLOCK# STORED IN RIB 

ISAME? 

IIT WAS WRONG. YOU LOSE, 

(EVERYTHING OK, 



(OUTPUT A RETRIEVAL BLOCK, 



334046- 000012 WRIB: 

554046 000016 WRIi 

260140 003304' WRIAt 

542060 000002 

336000 000001 

254200 004443' 

> 

260140 004112' 

254000 004443' 

263140 000000 



SKIPA TAC.OEVEXT(DEVRAT) (WRITE FIRST RETRIEVAL BLOCK 

HLRZ TAC,DEVBLK(DEVDAT) IWRITE NEXT RETRIEVAL BLOCK 

PUSHJ PDP,SET177 (WRITE RETRIEVAL BLOCK SPECIFIED BY TAC nN ENTRY 



HRRM TAC,i?TaC1 
IFN FTRCHK,< 
SKIPN TAG 

HALT WERA 

PUSHJ PDP.MQOUT 
JRST WERA 
POPJ POP, 



(STORE THIS BLOCK* IN WORD 128 

(ATTEMPTING TO WRITE RETRIEVAL INFORMATION 
( IN BLOCK NR IS AN ERROR 
(CONTINUE WILL POINT ERROR MESSAGE 

(WRITE IT, 
(ERRORS 
(NO, RETURN, 



550106 000020 SET177I HRRZ TACl , DSKBUF < DEVDAT) 

271100 000177 ADDI TACl . BLKS 1 2-1 

607000 000200 S177A' TLNN lOS.UBFS 

661100 000007 TLO TACl.PROG 

263140 000000 POPJ POP, 

550106 000020 SET176I HRRZ TACl , DSKBUF ( OEVDAT ) 

271100 000176 AODI TACl,BLKSIE-2 

254000 003306' JRST S177A 

550106 000020 SET000: HRRE TACl.DSKBUF lOEVDAT) 

254000 003306' JRST S177A 
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2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2291 
2295 
2296 
3297 
2298 
2299 
2 3 00 
23(!1 
2302 
23?!3 
2304 
23a5 
2306 
23S!7 
23^8 
2339 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 



^03316 
003317 
003320 
C03321 
003322 



003330 
P03331 
003332 
003333 
003334 
003335 
003336 
003337 
?i0334a 
003341 



003342 
003343 
003344 

003345 
003346 

003347 
003350 
003351 
003352 

003353 
003354 



516046 
420000 
202006 
260140 
260140 



000016 

0046141 

000002 

003620' 

003262' 



003323 260140 003016' 

003324 201746 000027 

003325 542746 000014 

003326 263140 000000 



iPUT POINTER INFO IN DOB 

iENTER WITH TAG CONTAIMMG THE BLOCK NUMBEP OF THE POINTERS. 

SETPTR; HRLZM TACi DEVBLK ( DEVOAT ) ; VWO RIB*, 0,.,0 INDEX 

ANDCM IOS,[XWD lOENOtNMP, I0DEND3 

MOVE" lOSiOEVlOS(OEVOAT) 

PUSHJ PDP.SETBUF lACQUIRE BUFFER IN MONITOR STORAGE 

PUSHJ PDP.RRI IGET RETRIEVAL BLOCK 

PUShj PDP.DFIN4 ICOPY POINTERS TO DOR 

MOVEl AC3,FPNTR(DEVD'T1 )SET DEvACC tq SKIP FIRST 4 WORDS 

HRRM AC3,DEVACC(0EVDAT) 

POPJ POP, 

IRECLAIM STORAGE ON DISK, 

(ENTER WITH TAC POINTING TO FIRST RETRIEVAL BLOCK OF THE FILE 

; TO BE DELETED, 



003327 260140 003620' RECLAM: PUSHJ PDP.SETBUF 



260140 
271240 
311240 
260140 
550060 
322040 
261140 
260140 
262140 
344240 



554060 
322040 
260140 

554046 
260140 

260140 
200240 
271100 
263140 

262140 
254000 



003344' PUSHJ POP, RECLM5 

000004 AODI DAT.OIRSIH 
000002 RECLM2; CAMl DAT.TACl 
003342' PUSHJ P0P.RECLM4 

000005 HRR2 TAC,»DAT 
003654' JUMPE TACCLRBUF 
000002 PUSH PDP.TACl 
003464' PUSHJ PDP.SETFRE 
000002 POP POPiTACl 
003332' AOJA 0AT,RECLM2 



000002 RECLM4! HLRZ TAC.SiTACl 
003353' JUMPE TAC,RECLM6 

003263' RECLM6! PUSHJ PDPiRRIA 



JFIND SPACE IN USER AREA 

IGET FIRST POINTER SLOCK 

ISKIP OVER FIRST WORDS, 

IMORE POINTERS IN BLOCK? 

INO, GET MORE 

IFREE A DATA BLOCK 

lEXIT WHEN A ZERO POINTER IS ENCOUNTEREn 

IFREE UP SPECIFIED BLOCK 

IGO SACK FOR MORE 



IPICK UP POINTER TO NEXT BLOCK 
INO MOREi GO HOME. 
IREAD IN A R.I . BLOCK, 



000021 
003464' 

003314' 
000002 
000176 
000000 



HLRZ TAC,DSkCNT(DEVOAT) IFREE THAT BLOCK 
PUSHJ PDP.SETFRE 



PUSHJ PDP,SET000 
MOVE DAT.TACl 
ADDI TAC1,BlKSIZ-2 
POPJ POP, 



000001 RECLM6I POP PDP.TAC 
003654' JRST CLRBUF 



ISET TACl TO FIRST WORD 
ISET TACl TO WORD 127 

ICLEAR ANY DUMP BUFFER AND LEAVE 



°''"" "R™R.?r^E'?R|E?L'%%°?KT^g^'' ^"^'" "°'''''' .BURROUGHS. MACRO. V36 19:^3 4-UUN-69 PACE 7. 
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2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
236B 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 



1803371 
003372 
003373 
003374 
003375 
003376 
003377 
003400 
003401 
003402 
003403 
003404 



003405 
003406 
003407 
003410 

003411 
003412 
003413 



003414 
003415 
003416 
003417 
003420 



260140 
260140 
550640 
200700 
201200 
260140 
2540!"0 
476000 
350060 
557000 
271042 
3710f0 



476000 
621000 
202006 
263140 

201010 
542060 
254000 



352000 

260140 
661000 
202006 
263140 



003414' 

003421' 

000015' 

000236' 

000001 

003744' 

003411' 

000017 ' 

000015 ' 

000001 

777777 

003242' 



000000 
004000 
000002 
000000 



SUBTTL OISK SPACE ALLOCATION 
DFGETF: get A FREE DISK SLOCK 
CALL! PUSMJ POP. DFGETF 

,,. RETURNS WITH TACS'LOGICAL BLOCK* 

MAY NOT RETURm IF DISK IS FULL OR NFARLY FULL 

EXTERNAL DAWAIT.riAAVAL.DAREQ.JOB^ 
INTERNAL DFGETF 



DFGETFi PUSHJ PQP.UPDA 
OFGTFli PUSHJ POP.SaTGET 
MHRZ ACI.SATPTR 
MOVE AC2,SATBK2 
MOVEI ITEM.l 
PUSHJ PDP.GETBIT 
JRST DFGTF2 
SETOM SATCHG 
AOS TAC.l?SATPTR 
HLR2S TAC 
ADDI TAC, -l(TACl) 
OOWNDA! SOSL DAHFQ 



SETOM OAAVAL 

TLZ IOS.OAFlG 

MOVE" IOS,OLVnS(DEVnAT) 

POPJ POP, 



ISET DISK ALLOCATION INTERLOCK 

IFOCUS ON A NON-FULL SAT BLOCK 

IPOINT TO 3 WORD SAT ENTRY 

IXWD -L> POINTER TO SAT SLOCK 

IREQUEST 1 BLOCK 

(RETURNS BlTi» IN TACl (n RANGE 1 TO NUMRLK) 

(FULL AFTER ALL 

ISHOW Sat BLOCK IN CORE MOT = OiSK COPY 

ICOUN'T ANOTHER BLOCK USEn 

(FIRST LOGICAL BLOCK* REPRESENTED BY SAT BLOCK 

(FORM LOGICAL BLOCK* 

(THIS EXITING ROUTINE TURNS OFF OAREQ INTERLOCK 

( THUS MAKING NON-SHARABLE SECTIONS OF CODE 

( AVAILABLE TOTHE NEXT USER IN THE QUEUE 



011000 DFGTF2I MQVEI TACNUMBIT 
000015' hRRM TACSSATPTR 

003372' JRST OFGTFl 



(BITS/SaT BLOCK 
(MARK SAT ENTRY FULL 



003404' 

000000 
004000 
000002 

000000 



(UPDA 



UPDA: 



TURN ON THE OISK ALLOCATION INTERLOCK (OAREQ) 

A CALL To UPDA MUST PRECEDE SAT BLOCK MANIPULATIONS 



(INCREMENT COUNT OF USERS REQUESTING DISK ALLOCATION 
(WAIT UNTIL JOB REACHES TOP OF QUEUE 



ACSE DAReQ 

PUSHJ PDP.DAWAIT 

TLO lOS.nAFLG 

MOVEM lOS.DEVIOSIDEVTAT) ;maRK THIS JOB AS USING SAT BLOCK 

POPJ POP, 
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DISK SPACE ALLOCATION 

2391 ISATGET - FIND A NON-FULL SAT BLOCK FOR OFGFTF OR DUMP MODE OUTPUT, 

2392 ; CONSIDER DISK FULL WHEN FEW BLOCKS REMAIN FREE UNLESS THE USER 

2393 ; IS LOGGING IN 1R U^'ING A NON-SHARABLE RESOURCE. 
2394 

2395 EXTERNAL JBTSTS , HNGSTP 
2396 

2397 003421 400640 00H00a SATGETl SETZ ACl, ;CLEAR COUNT 

2398 003422 550060 000015' HRRE TAC,«iSATPTR ;BLOCKS USED IN CURRENT SAT BLOCK 

2399 003423 606040 400000 JRNN TAC.WLBIT iWRITE LOCKED? 

2400 003424 260140 003457' PUSHJ PDP.SATCNT )N0. COUNT # FREE 

2401 003425 301640 000000 CAIL ACl.JOBN (IS THERE ENOUGH SPACE? 

2402 003426 263140 000000 POPJ PDP, lYES - USE IT, 

2403 003427 400640 000000 SETZ ACl, (CLEAR COUNT 

2404 003430 201100 000022' MOVEI TACliSATENT ISTART WITH FIRST SAT ENTRY 

2405 003431 550042 000000 SATGTl! HRR? TAC, 0(TAC1) IGET WL8IT * BLOCKS USED 

2406 003432 606040 400000 TRNN TACWLBIT IWRITE LOCKED? 

2407 003433 260140 003457' PUSHJ PDP.SATCNT I NO . COUNT # FREE 

2408 003434 271100 000003 4D0I TACl.SENTSZ (NEXT SAT ENTRY 

2409 003435 301640 003425' CAIL ACl.JOBN (ENOUGH SPACE ACCUMULATED? 

2410 003436 254000 003455' JRST SATGT2 (YES - READ A SAT BLOCK 

2411 003437 305100 000033' CAIGE TACl.SATTOP ) E^O OF ENTRIES? 

2412 003440 254000 003431' jRST SATGTl | NO , CONTINUE 

2413 003441 322640 003447' JUMpE ACliDSKFUL (IF NQNE FOUND DISK IS REALLY FULL 
2414 

2415 

2416 (THERE ARE JOBN OR FEWER DISK BLOCKS AVAILABLE, 

2417 (GIVE THEM OUT ONLY IN HARDSHIP CASES 

2418 003442 135040 000000 LDB TAC.PJOBN 

2419 003443 200041 000000 MOVE TAC , JBTSTS ( TAC ) 

2420 003444 607040 100000 TLNN TACJACCT (IS THIS USER LOGGING IN? 

2421 003445 603000 010200 TLNE I OS , USFS + AUFLG (DOES USER HAVE MONITOR BUFFER OR IS HE ALTERING UFD? 

2422 003446 254000 003455' JRST SATGT2 (YES TO EITHER. GIVE HIM A BLOCK ANYWAY, 

2423 003447 603000 010200 DSKFUL I TLNE I OS , UBFS + AUFLG 

2424 JRST DFERRl (NON-RECOVERABLE ERROR IF USING BUFFER OR ALTER:ING UFD 

2425 003450 254000 004342' 

2426 003451 260140 003404' PUSHJ PDP.DOWNDA (RESET ALLOCATION INTERLOCK 

2427 003452 260140 000000 PUSHJ POP, HNGSTP (PRINT "OSK OK?" 

2428 003453 260140 003414' PUSHJ PDP.UPDA (IF USER TYPES "CONT" WE TRY AGAIN 

2429 003454 254000 003421' JRST SATGET 
2430 

2431 003455 200100 000016' SATGT2( MOVE TACl.SATPlK (POINT TO ENTRY OF NON-FULL SAT BLOCK 

2432 003456 254000 003520' JRST SATRD (READ IN SAT BLOCK 
2433 

2434 003457 302040 011000 SATCNTl CAIE TAC.NUMBIT (IS ENTRY FULL? 

2435 003460 202100 000016' MOVEM TACljSATPIK (NO, SAVE POINTER TO A NON-FULL ENTRY 

2436 003461 271640 011000 4DDI ACl.NUMBIT (MAXIMUM NUMBER 

2437 003462 274640 000001 SUB ACl. TAC (LESS NUMBER USED 

2438 003463 263140 000000 POPJ POP. 
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2439 ISETFRE - RETURN A DISK BLOCK TO AVAILABLE STORAGE 

2440 ;CALL TACisLOGICAL BLOCK L 



ISET DISK ALLOCATION INTERLOC< 



2441 








; OUSHJ PDPiSETFRE 


2442 








; ... RETURN 


2443 










2444 








INTERNAL SETFRE.FTRC 


2445 










2446 


003464 


260140 


003414' 


SETFREI PUSHJ PDP.UPDA 


2447 








IFN FTRCMK,< 


2448 








EXTERNAL LBHIGH 


2449 










2450 


5103465 


332000 


000001 


SKIPE TAC 


2451 


003466 


313040 


000000 


CAMUE TAC. LBHIGH 


2452 


003467 


254200 


003404' 


HALT DOHNDA 


2453 








> 


2454 


003470 


554660 


000015' 


HLRH ACl.SiSATPTR 


2455 


003471 


311040 


000015 


CAML TAC.ACl 


2456 


003472 


301055 


007640 


CAIL TAC,NUMRLK(AC1) 


2457 


003473 


334000 


000000 


SKIPA 


2458 


003474 


2540?0 


003510' 


JRST SETFR2 


2459 


003475 


201100 


000022' 


MOVEI TACl.SATENT 


2460 


003476 


334000 


000000 


SKIPA 


2461 


003477 


2711510 


000003 


SETFRll ADOI TACI.SenTSZ 


2462 


003500 


554660 


000002 


HLRZ AC1.9TAC1 


2463 


003501 


311040 


000015 


CAML TAC, AC! 


2464 


003502 


301055 


007640 


CAIL TAC.NUMBLKIACI) 


2465 


003503 


254000 


003477' 


JRST SETFRl 


2466 


003504 


261140 


000001 


PUSH POP, TAC 


2467 


003505 


260140 


003520' 


PUSHJ POPiSATHD 


2468 


003506 


262140 


000001 


POP PDP>TAC 


2469 


003507 


554660 


000015' 


HLRH AC1,9SATPTR 


2470 


003510 


274040 


000015 


SETFR2I SUB TAC.ACl 


2471 


003511 


550640 


000015' 


HRR? AC1,SATPTR 


2472 


003512 


200700 


000236' 


MOVE AC2,SATBK2 


2473 


003513 


2012««0 


000001 


MOVEI ITEM,! 


2474 


003514 


260140 


004032' 


PUSHJ PDP,CLRBIT 


2475 


003515 


370020 


000015' 


SOS 9SATPTR 


2476 


003516 


476000 


000017' 


SETOM SATCHG 


2477 


003517 


254000 


003404' 


JRST DOWNDA 



IBLOCK SHOULD NEVER BE CLEARED 

IBLOCK* TOO LARGE 

lYES, HALT, CONTINUE WILL COUNT DOWN DARrO, 

IGET LOGICAL BLOCKlH FOR R0 OF CURRENT SAT BLOCK 
lis L LESS THAN FIRST BLDCK REPRESENTED? 
MS L LESS THAN LAST BLOCK REPRESENTED 
lOUTSIDE RANGE 
MN RANGE 
UNITIALIZE POINTER 

IINCREMENT POINTER 

IGET LOGICAL BLOCK FOR 80 OF SAT BLOCK 

IIS L LESS THAN FIRST BLOCK? 

IIS L LESS THAN LAST BLOCK? 

)OUT-OF-RANGE, TRY NEXT 

ISAVE BLOCK* 

(READ Sat Block for entry pointed to by taci 

IRESTQRE BLOCK* 

(FORM Bit* (IN RANGE TO NUMiiLK-l) 
IPOINT TO 3 WORD ENTRY 
IXWD -L, POINTER TO SAT BLOCK 
JRETURN 1 BIT 

lOECREMENT BLOCKS USED 

ISAT BLOCK IN CORE NOT = DISK COPY 

JREMOVE ALLOCATION INTERLOCK AND EXIT. 
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2478 








2479 








2480 








2481 








2482 


003520 


202100 


000021' 


2483 


003521 


200ie^6 


000020 


2484 


003522 


202100 


000020' 


2485 


003523 


332000 


000017' 


2486 


003524 


260140 


003536' 


2487 


003525 


700040 


000021' 


2488 


003526 


202040 


000015' 


2489 


P03527 


260140 


003546' 


2490 


003530 


661000 


000400 


2491 


003531 


260140 


004110' 


2492 


003532 


254000 


004457' 


2493 


003533 


200100 


000020' 


2494 


003534 


202106 


000020 


2495 


003535 


2540IJI0 


003543' 


2496 








2497 


003536 


661000 


000400 


2498 


003537 


260140 


003546' 


2499 


003540 


260140 


004112' 


2500 


003541 


254000 


004443' 


2501 


003542 


402000 


000017' 


2502 


003543 


205000 


000400 


25?3 


003544 


413006 


000002 


25?4 


?03545 


263140 


000000 


2505 








2506 








2507 








2508 








2509 


003546 


200040 


000015' 


2510 


003547 


275040 


000022' 


2511 


003550 


231040 


000003 


2512 


003551 


270040 


000001' 


2513 


003552 


200100 


000236' 


2514 


003553 


2021?6 


000020 


2515 


003554 


263140 


000000 



INOTE! SATRD USES TEMPORARY STORAGE LOCATIONS SATTMP ANO SATTEM TO HELP aVOIO 
A POL OVFLW PROBLEM. IT CAN 00 SO BECAUSE IT IS NOT RE-ENTRANT, I.E., ONLY 
1 Sne USER AT A tImE MAY PASS THROUGH HERE BECAUSE OF THE DAREO INTERLOCK, 

SATROI MOVEM TACl, SATTMP ISAVE POINTER TO DESIRED SAT ENTRY, 
MOVE TACl,DSKBUF<DEvnAT) )ALSO SAVE lOWD FROM THE ODB 
MOVEM TACliSATTEM „...^., 

IHAS COPY IN CORE BEEN MODIFIED? 

)YES, WRITE IT, 

(RETRIEVE Sat POINTER FOR SAT BLOCK TO BE READ IN, 



SKIPE SATCHG 

PUSHJ PDPfSATWRT 

MOVE TAC, SATTMP 

MOVEM TAC.SATPTR 

PUSHJ PDP,SATBlK 

TLO IOS.NORELB 

PUSHJ PDP.MQIN 

JRST RERA 

MOVE TACl, SATTEM 

MOVEM TACl.DSKBUF(DEVDAT) 

JRST SATWl 



(COMPUTE BLOCK#. lOWD 

INO RELOCATION 

IREAD THE BLOCK 

(ERROR 

(RESTORE SAVED lOWD TO DOB 



SATWRTi TLO IOS.NORELB 

PUSHJ pdp.satblk 

PUSHJ PDP,M00UT 
JRST WERA 
SETEM SATCHG , 
SATWi: MOVSI lOSiNORELB 



(NO RELOCATION 

(COMPUTE BLOCK" lOWD 

(WRITE BLOCK 

I rRROR 

(SHOW COPY IN CORE 

(RESET BIT 



BLOCK ON DISK 



ANDCAB IOS,DE:VIOS(OEVDAT) 
POPJ POP, 



(SET UP TAC AND TACl FOR READ OR WRITE OF SAT BLOCK 

SATBLK: MOVE TACSATPTR 
SUBI TACSATENT 
IDIVI TAC.SENTS2 
ADD TACSATXWD 
MOVE TAC1,SATBK2 
MOVEM TACl.DSKaUF(DEVDAT) 
POPJ POP, 
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(POINT TO PROTOTYPE DD8 

ICOPY LINK TO TACl 

IGET LINK TO NEXT DDB 

10 MEANS END 

lOWNED BY CURRENT USER? 

INO 



IGET LINK FROM THIS DDB 

JSTORE IN PREVIOUS DOB TO REMOVE THIS ONr 

IGET INTERRUPT LEVEL POINTER 

IPOINTING TO DISCARDED DDB7 

lYES. BYPASS DISCARDED DOB 



IDELETE FREE STORAGE. 

AND ASSIGN IF LOGICAL NAME GIVEN. 

ISAVE AC'S USED BY SETDDR 



IHAS AN INIT BEEN DONE? 

lYES, MUST COPY PROTOTYPE DOB 

IGET ADDRESS OF DDB 

1 IS IT PROTOTYPE? 

INO. WE ALREADY HAVE A DOB 

IGET SOME FREE CORE 



IGET SPACE FOR DDB 

IDEVDAT POINTS TO ASSIGNED CORE 

ISPURCE, DESTINATION 

ICOPY PROTOTYPE DDB INTO MONITOR CORE 

ITACI POINTS TO PROTOTYPE 

I LINK PROTOTYPE DOB TO COPY 

I COPY ALREADY LINKS WHERE PROTOTYPE DID 



2516 








SUBTTL 


"FREE" CORE ALLOCATI0^' 


2517 








(CLEAR 


OUT DDE AT RELEASE TlwE 


251B 












2519 








INTERNAL CLRDDP 


2520 












2521 


003555 


201040 


000237' 


CLRDOB: 


MOVEI TAC.OSKDOB 


2522 


003555 


200100 


000001 


CLDDBl! 


MOVE TACl.TAC 


2523 


003557 


554042 


000003 




HLRZ TAC,DEVSER(TAC1) 


2524 


003560 


322040 


002160' 




JUMPE TACCPOPJ 


2525 


003561 


302045 


000000 




CAIE TAC,(DEVDiTl 


2526 


003562 


254000 


003556' 




JRST CLDOBl 


2527 










noscheoule » 


2528 


003563 


700600 


003215' 




CONO PI.DSKOFF 


2529 


003564 


200641 


000003 




MOVE AC1,DEVSER(TAC) 


2530 


003565 


502642 


000003 




MLLM AC1,DEVSER(TAC1) 


2531 


003556 


5502f0 


000002' 




URR2 ITEM.DDBPTR 


2532 


003567 


306201 


000000 




CAIN ITEM,0(TAC) 


2533 


003570 


206640 


000002' 




MOVSM ACl.DDEPTR 


2534 










SCHEDULE' 


2535 


003571 


700600 


003230' 




CONO PI.DSKON 


2535 


003572 


201200 


000010 




MOVEI ITEM.OSKCOR 


2577 


003573 


254000 


004026' 




JRST CLCORl 


2538 












2579 








IBUILD 


A DISK DEVICE DATA BLOCK 


2540 








ITUIS IS DONE AT INIT TIME. 


2541 












2542 








INTERNAL SETDDB 


2543 












2544 


003574 


261140 


000004 


SETODHl 


PUSH POP, ITEM 


2545 


003575 


261140 


000002 




PUSH POP, TACl 


2546 


003576 


200106 


000004 




MOVE TACl.DEVMODIDEVnAT) 


2547 


003577 


602ll'0 


200000 




TRNE TACl.ASSPRG 


2548 


003500 


254000 


003604' 




JRST SETOD0 


2549 


003501 


550100 


000005 




HRRE TAC1,DEVDAT 


2550 


003602 


302100 


000237' 




CAIE TACl.OSKDDB 


2551 


003503 


254000 


003615' 




JRST SETDDl 


2552 


003504 


201200 


000010 


SETDO01 


MOVEI ITEM.DSKCOR 


2553 










NOSCHEDULE' 


2554 


003605 


700500 


003563' 




CONO PI.DSKOFF 


2555 


003506 


250140 


003732' 




PUSHJ PDP.GTCORl 


2556 


003607 


540300 


000002 




HRR DEVDAT.TACl 


2557 


003610 


505100 


000237' 




HRLI TACl.OSKDDB 


2558 


003611 


251106 


000023 




BLT TACl.PTRKDEVDAT) 


2559 


003612 


201100 


000237' 




MOVEI TACl.DSKOOB 


2560 












2561 












2562 


003613 


506302 


000003 




HRLM DEVDAT,DEVSER(TAC1) 


2563 










SCHEDULE* 


2564 


003614 


700600 


003571' 




CONO PI,DSKDN 


2565 


003615 


262140 


000002 


SETODll 


POP PDPfTACI 


2566 


003615 


262140 


000004 




POP POP. ITEM 


2567 


003617 


253140 


000000 




POPJ POP, 
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2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
2560 
2581 
2582 
2583 
2584 
2585 
2586 

2587 
2588 
2589 
2590 
2591 
2592 
2593 
2594 
2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 



003621 
003622 
003623 
003624 
003625 



003635 

003637 
003640 
003641 
003642 
003643 
003644 
003645 
003646 



iSET TACl TO SOME AREA FOR BUFFER. 

;GET BUFFER SPACE FROM USER INPUT OR OUTPUT RING IF AVAILABLE 

lASSIGN FROM MONITOR CORE AS A LAST RESORT. 

;SET DSKBUF(DEVDaT) to POINT TO BUFFER. 



EXTERNAL PIOMOD.UADRCK.JOBFF 
003620 603000 000200 SETBUFi TLNE lOS.UBFS 



263140 
135100 
305l?i0 
603300 
254000 



003626 607300 

003627 254000 

003630 550106 

003631 254000 



000000 

001463' 

000015 

000020 

003647' 

000400 
003632' 
000007 
003635' 



POPJ POP, 

LDB TACl.PIOMOD 

CAIGE TACl, SO 

TLNE 0EVDAT,DSKRL3 

JRST SETBF6 



IHAVE OME IN FREE STORAGE? 
lYFS. LEAVE 
INO, DUMP MODE? 



IRESFT UUO IN PROGRESS ? 
lYES TO EITHER QUESTION 



SETBFIl 



TLNN DEVDAT,INBFB lINBUF DONE YET? 

JRST SETBFl INO 

HRRH TACl,DEVIAD(DEVOAT) ;CALL HERE FROM INPUT - RING KNOWN TO BF AVAILABLE 

jRST SETBF2 



003532 607300 000200 SETBFIl TLNN DEVDAT , 0UTBF8 lOUTBUF DONE YET? 

003633 2540!!'0 003647' JRST SETHF6 iNO 

003634 550106 000010 SETBFOl HRRZ T 4C1 , DEVOAD ( DEVnAT ) (CALL HERE FROM OUTPUT 



RING KNOWN TO RE AVAILABLE 



003635 201102 000002 SETBF2! MOVEI TACli2(TACl) 



550640 
260140 
201642 
250140 
661000 
505100 
202106 
202006 
263140 



003647 352000 

003650 260140 

003651 661000 

003652 201100 

003653 254000 



000002 

000000 

000177 

003637' 

001000 

777600 

000020 

000002 

000000 



000000 

000000 

000200 

000266' 

003643' 



lAODRESS CHECK LOW END 



HRR? ACl.TACl 

PUSHJ POP.UADRCK 

"OVEI ACI.BLKSIE-KTACI) 

PUSHJ PDP,UAORCK 

TLO lOS.UB^U (BUFFER IN USER AREA 

SETBF6I HRLI TACl,NBLKSZ 

MOVE'^ TACl»DSKeUF<DEVDAT) 

MOVEM IOS,DEVlnS(DEVDAT) 

POPJ POP, 
IDUMP MODE, USE AREA IN FREE STORAGE. 



SETBF6I AOSE MQREQ 

PUSHJ PDP.MQWAIT 
TLO lOS.UBFS 
MOVEI TACli MONBUF 
JRST SETBFS 



IBUFFER IN MONITOR CORE 

ITACl POINTS TO MONITOR BUFFER 



DSKSRB 


- ALMOST 


DEVICE 


INDEPENO 


EMT OISK 


SERVICE ■ROUTINES (BURROU 




"fref:" 


CnRE ALLOCATION 






2609 








SCLEAH 


THE BUFFER IM FREE STORAG 


?6ia 












26tl 








EXTERNAL eUFCLRi JOBFF, lADRCK 


261.2 


003654 






CLRBUf t 


SCHEDULE* 


2613 


("03654 


700600 


003614' 




COMO PI.DSKON 


261.4 


003655 


627000 


004000 




TL?N lOS.QAFLG 


261,5 


003656 


254000 


003661' 




JRST ,+3 


2616 


003657 


371000 


003414' 




SDSL DAREQ 


2617 


003660 


476000 


003405' 




SETOM DAAVAL 


2618 


003661 


627000 


010000 




TLFN lOS.AUFLG 


2619 


003662 


254000 


003665' 




JRST .*i 


2620 


003663 


371000 


002123' 




SOSL AUREO 


2621 


003664 


476000 


002124' 




SETOM AUAVAL 


2622 


003665 


527000 


000200 




TL?N lOS.UBFS 


2623 


003666 


254000 


003671' 




JRST .+3 


2621 


003667 


371000 


003647' 




SCSL MQRFQ 


2625 


003670 


476000 


000000 




SETQM MQAVAL 


2626 


003671 


621000 


002000 




TLZ lOS.MCTRLC 


2627 


003672 


623000 


001000 




TLFE lOS.UBFU 


262B 


003673 


254000 


003676' 




JRST CLRBFl 


2629 


003674 


202006 


000002 




MOVEM lOStDEVlOS(OEVDAT) 


2630 


003675 


263140 


000000 




POPJ POP. 


2631 












2632 








;CLEAH 


USER BUFFER AFTER USIMG 


2633 












2634 


003676 


202006 


000002 


CLRBFll 


MOVEM 10S,DEVI0S(DEvnAT) 


2635 


003677 


550046 


000020 




HRRZ TAC,DSKBUF<OEVDAT) 


2636 


003700 


311047 


000000 




CAUL TAC,JOBFF( JOAT) 


2637 


003701 


263140 


000000 




OOPJ POP, 


2636 


003702 


260140 


000000 




PUSHJ PDPfIADRCK 


2639 


003703 


263140 


000000 




POPJ POP, 


2640 


003704 


275040 


000002 




SUBI TAC,2 


2641 


003705 


370003 


000000 




SOS (pnP) 


2642 


003706 


2540W0 


000000 




JRST BDFCLR 
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lUSING SAT BLOCK? 

lYES. RELEASE 

lUSING UFO? 

lYES. RELEASE UFO 

lUSING MONIGOR BUFFER? 

lYES, RELEASE MONITOR SUFFER 

IRENABLE »C 

lUSING BUFFER IN USER AREA 

lYES. CLEAR BUFFER 



IGET LDC. OF BUFFER 
lABOVE J0BFF7 
INO, RETURN, 



ISET TAC TO 2ND BUFFER WORO 
IBUFCLR WILL SKIP RETURN 
ICLEAR TME SUFFER 



DSKSRB 



2643 
?544 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2656 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
266S 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
26B0 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 



■ ALMOS 
"FREE" 



T DEVICE INDEPENDENT DISK SERVICE ROUTINES (BURROUGHS) 
CORE ilUOCATION 
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(10375I7 
P03710 

PS03711 
003712 

H03713 
003714 
PI03715 

P103716 
003717 
P03720 



003721 
003722 
003723 
("03724 
003725 
003726 
003727 



211240 
2540P0 

241100 
325100 



607100 
254000 
242100 
665li?0 
661100 
140100 
242100 



000001 
003716' 

777777 

003716' 



252040 003560 

316241 000000 

254000 003713' 

612101 000000 

254000 003711' 

254000 002156' 



777000 

003725' 

777767 

043000 

032000 

004615' 

777745 



(FIND THE FIRST ?ERO IN A SET OF WORDS, 

;ENTER WITH LH OF TAG SET TO NEGATIVE OF NUMBER OF WORDS, 

I RH OF TAC CONTAIMING ADDRESS OF FIRST WORD, 

(CALL! PUSHJ PDPiGETiER 

I EXITl NO HEROES 

I EXIT? WORMAL 

INORMAL EXIT LEAVES TAC POINTING TO WORD CONTAING THE 2ER0, 

(AND TACl HAVING A 1-BIT IN THE POSITION OF THE ZERO. 

( 

(ENTER AT GETHRl IF TACl IS ALL SET UP, 

(CALLED AT UUO AND INTERRUPT LEVELS 

GETZERI MOVNI OAT.l 
JRST GET?3 



003730 263140 000000 



GETZi: ROT TAC1,-1 
' JUMPGE TACl.GETZS 

' GETZ2i AOBJP TAC.CPOPJ 

CAMN DAT, (TAC) 
' JRST GET22 

GETZ3i TONE TACl, (TAC) 
JRST GETZI 
JRST CPOPJl 

(TIMING: M=NUMBER OF LEADING WORDS CONTAINING NO ZEROES 
( M=NUMBER OF LEADING ONES IN M*1ST WQRD 

I 38+12, 8M+17, IN MICRO-SECS 

(WORST CASE WITH 128 WORDS = 2,3 MILS 



(FIND THE NUMBER OF ZERO BITS TO THE RIGHT OF A WORD 
(CONTAINING A SINGLE l-BIT 

(ENTER WITH BIT IN TACl, EXIT WITH RESIDUE IN TACl, 
(CALLED AT UUO AND INTERRUPT LEVELS 

RESIDUl TLNN TACl, 777000 

JRST RESIDI 

LSM TACl, -11 

TLOA TACl, 43000 
RESIDll TLO TACl, 32000 

FAD TACl, [03 

LSH TACl, -33 

POPJ POP, 



OSKS.B -..AL^,OST^O.V,rE^,NO.P,.OE.T D,Sk SE.V.Cr ROUTINES <Bu..OUGHS. 
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?590 








iF INO 


?691 








; IT IS 


7602 








?693 










2604 










2695 


(103731 


2012C0 


(^00001 


GETFCK 


?696 


003732 


201640 


000262' 


GTCORI 


2697 


?03733 


2017(^0 


000265' 




2698 


<»03734 


261140 


000005 




2609 


BI03735 


260140 


003744' 




27?ia 


1^103736 


254000 


004421 1 




27511 


5103737 


262140 


00005(5 




?7?I2 


003740 


242l£i0 


000002 




2703 


("03741 


2751PI0 


000004 




27?4 


fi03742 


2701^0 


000262' 




27515 


003743 


263140 


000000 





;it'^?/?1^^, "".""""^ ''^ ""''' "E-URN AN ADDRESS IN TACl 
JIT IS ASSUMED TmaT the clock IS OEF , 



INTERN GETFCR 

"OVEI ITeM.l 
MOVE! ACl.LOCORE 
WOVE! AC2,0DSTA9 
RUSH PDP.OAT 
pushj PDP.GETBIT 
JRST DFERR9 
ROP POP. OAT 
LSH TACl, 2 
SUOI TACl, 4 
ADO TACl.LOCORE 
POPJ POP, 



IREQUEST ONE 4 WORD BLOCK 

IPOINT TO THREE WORD FRE'' CORE ENTRY 

IPPINT TO PIT TABLE 

IFIND A HOLE 
ITHERE ARE NONE 

IMULTIPLV BIT* BY 4 

ISYNCHRNIEE 

IFORM CORE ADDRESS 



D3KSHB 


- ALM0S1 


DEVICE 


INDEPEND 




"fref:" 


CORE ALLOCATldN 


27?6 








21?'7 








27K6 








27019 








?71I3 








2711 








2712 








2713 








2714 








2715 








2716 


?!03744 


261140 


004616' 


2717 


!»03745 


261140 


000004 


2718 


303746 


200055 


000002 


2719 


I?I03747 


200115 


000001 


2720 


003750 


260140 


003707' 


2721 


PI03751 


254000 


004016' 


2722 


ei03752 


202115 


000001 


2723 


003753 


202055 


000002 


2724 


fl03754 


261140 


000001 


2725 


003755 


261140 


000002 


2726 








2727 


?'03756 


35001^0 


000005 


2728 


303757 


3632?10 


003776' 


2729 


C03760 


241100 


777777 


2730 


003761 


335000 


000002 


2731 


003762 


252040 


003765' 


2732 


003763 


616101 


000000 


2733 


003764 


254000 


003756' 


2734 








2735 


003765 


313243 


777775 


2736 


003766 


202243 


777775 


2737 


003767 


327040 


004021' 


2738 


003770 


260140 


003707' 


2739 


003771 


254000 


004021' 


2740 


003772 


202103 


000000 


2741 


003773 


202043 


777777 


2742 


003774 


200203 


777776 


2743 


003775 


254000 


003756' 


2744 








2745 


003776 


200103 


000000 


2746 


003777 


200043 


777777 


2747 


004000 


200203 


777776 


2748 








2749 


004001 


436101 


000000 


2750 


0040(112 


363200 


004006' 


2751 


^■04003 


241100 


777777 


2752 


0040514 


325100 


004001' 


2753 


0040J15 


253040 


004001' 


2754 








2755 


004006 


262140 


000002 


2756 


004007 


262140 


000001 


2757 


004010 


350003 


777776 


2758 
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INTERNAL GETPIT 



jsearch through a tarle to find a series of ?ER0-BITS, 

;enteh with acl set up as in clrbit routine, cdtem) sft to thf 

i S12E HOLE OESIREO, 

;CALUED AT UUO A«0 INTERRUPT LEVELS 

iON UNSUCCESSFUL RETURN DAT CONTAINS THE SI£F 

lOF lARGETS MOLE ENCOUNTERED 



GETBIT: PUSH PDP,i:-l] 
PUSH POP, ITEM 
MOVE TAC,2(ACl) 
MOVE TACl.KACl) 
PUSHJ PDP.GETEEH 
JRST GTBIT5 
MOVEM TAcl.KACl) 
MOVEM TAC.2(AC1) 
PUSH PDP.TAC 

PUSH pnp.TACl 

GTBITli ACS DAT 

SQJLE ITEM.GTBIT? 
ROT TAC1,-1 
SKIPGE TACl 
AOBJP TACGTBTIA 
TDNN TACl, (TAC) 
JRST GTBITl 

GTBTIAI CAMLE nAT.-3(PDP) 
MOVEM aAT,-3(PDP) 
JUMPC TAC.GTBIT6 
PUSHJ POP.GETHER 
JRST GTBIT6 
MOVEM TAC1,(PDP) 
MOVEM TAr,-l(POP) 
MOVE ITEM,-2tpr)P) 
JRST GTBITl 

GTBIT2; MOVE TACl, (POP) 
«OVE TAC,-1(PDP) 
MOVE ITEM,-2(PDP) 

GTBIT3! ORM TACl, (TAC) 

SOJLE ITEM,GTBIT4 
ROT TAC1,-1 
JUMPCE TAC1,GTRIT3 
AOPJW TAC,GTPIT3 

GTBIT4! POP POP, TACl 
POP POP, TAC 
AOS -2(PDP) 



ilNITIALI^E LARGEST HOLE FOUND SO FAR 

I34VE HOLE SIZE 

)TAC=iIOWO LENGTH OF TABLE, TABLE ADDRESS 

IFIND THE FIRST 2ER0 
I NO ZEROES L'"FT 
)SAVE THE SPnT 



IINCREMENT SIZE OF HOLE BY 1 (GETZER LEFT OAT = H) 

(FOUND ENOUGH? 

INO 

IJUMP IF TABLE EXHAUSTED i 

I IS NEXT BIT ZERO? 
IVES. CONTINUE 

iNO. LARGEST HOLE SO FAR? 

JYES, SAVE SIZE 

ITABLE EXHAUSTED? IF SO, ERROR EXIST, 

;N0, TRY FURTHER ON 

(NO MORE, ERROR 



JHOLE FOUND, SET BITS TO ONES 



iTHis Should always jump 



DSKSOB 



ALMOST DEVICE INDEPENOENT DISK SERVICE ROUTINES (Bul^ROUGHS) 
"FREE" CORE ALLOCATION 
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2759 


C04011 


553000 


000001 


2760 


^104012 


275056 


777777 


2761 


?l04ai3 


260140 


003721' 


2762 


["04014 


221040 


000044 


2763 


704015 


276040 


000002 


2764 


004016 


262140 


000004 GTBITb 


2765 


004017 


262140 


000005 


2766 


0040J0 


263140 


000000 


2767 








2768 


004021 


262140 


0001301 GTBIT6 


2769 


004022 


262140 


000002 


2770 


104023 


350003 


777777 


2771 


004024 


?540!»0 


004016' 



WRR2S TAC 
SUSI TAC,-1(AC2) 
PUSHJ PDP.RESInU 
IMULI TAC.»D36 
SURM TACTACl 
POP PQPi ITEM 
POP POP. OAT 
POPJ POP, 



POP PDP.TACl 
40S -l(POP) 
JRST GTBIT5 



ISIHE OF LARGEST HOLE FOUMD IF UMSUCCESSrUL 



ISIEE OF LARGEST HOLE MUST BE ADJUSTED. 



OSKSWB 



?772 
?773 
2774 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2783 
2789 
2790 



- ALMDST DEViriE INDEPENDENT DISK SERVICE ROUTINES (BURROUGHS) 
"FREE" CORE ALLOCATinN 

IFREE A FOUR WORD SECTION OF CORE. 
(ENTER WIT« ADDRESS IN TAG 

INTERNAL CUCORl 

(504075 2S12CS 0000^1 CLRCORi movEI ITEM.I 

004026 274040 000262' CLCORli SUB TAClOCORE 

004027 242040 777776 LSH TAC.-2 
^04030 201640 000262' MOVE! ACl.LOCORE 
004031 200700 000265' MOVE AC2,CRINIT 
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ISEARCH FROM BEGINNING 



CLEAR A SERIES OF BITS IN SOME TABLE 
ENTER WITH: C(TAC) SET TO A BIT NUMBER 

C(ACl) SET TO EITHER A SAT ENTRY OR FREE 

CORE ENTRY 
C(AC2) SET TO ^EC-INNING OF TABLE (lOWD FORM) 
C(ITEM) SET TO NUMBER OF BITS TO CLEAR 
EXIT WITH CORRECT BITS SET TQ HERO AND SAT ENTRY OR FREE CORE 
ENTRY UPDATED IF NECESSARY. 



2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
28?1 
28?2 
28!'3 
28(14 
2805 
2806 
2807 
2808 
28(^9 
28)0 
2811 
2812 
2313 
2814 
2815 
2816 
2817 
2816 
2819 
2820 
2821 
2822 
2873 
2824 



INTERNAL CLRRIT 

004032 231040 000044 CLRBlTs IDIVI TAC.tD36 

004033 507000 000001 HRLS TAC 

004034 270040 000016 ADD TACfAC2 

004035 261140 000005 PUSH POP, DAT 
004076 210240 000002 MOVN DAT.TACl 
004037 205100 40^1000 MOVSI TACli400000 

004040 241105 000000 ROT TAC1,(DAT) 

004041 262140 000005 POP POP. DAT 

004042 261140 000001 PUSH PDF, TAC 
»I04043 261140 000002 PUSH PDP.TACl 

004044 412101 000000 CLRB4t ANDCAM TACl.(TAC) 

004045 363200 004051' SOJLE ITEM.CLRRS 

004046 241100 777777 ROT TACl.'l 

004047 325100 004044' JUMPCE TAC1,CLRB4 

004050 253040 004044' AOBJN TAC.CLRe4 

004051 262140 000002 CLRBSi POP PDPiTACl 

004052 262140 000001 POP PQPiTAC 

004053 313055 000002 CAMLE TAC.2(AC1) 

004054 263140 000000 PQPj PDF, 

004055 312055 000002 CAME TAC,2(ACl) 

004056 2540i?0 004063' JRST CLRB2 

004057 321100 004063' JUWPL TAC1.CLRB2 

004060 335015 000001 SKIPGE KACl) 

004061 254000 004064' JRST CLRB3 
0040A2 311115 000001 CAML TACl.KACl) 

004063 202115 000001 CLR82: MOVEM TACliKACl) 

004064 202055 000002 CLRB3! MQVEM TAC,2(ACl) 

004065 263140 000000 POPJ PDF, 



IBOTH HALVES OF TAC CONTAIN 
I WORD INCREMENT 



(CLEAR A BIT 
MS THAT ALL? 
(NO 

(THIS SHOULD ALWAYS JUMP 



(NEED TO RESET? 
(NO 



(YES 



OSKSi^B - ALMOST DEVICE INDEPENDENT DISK SERVICE ROUTINES (BURROUGHS) 
"FREE" CORE ALUOClTinN 



MACRn,V36 19!05 4-JUN-69 PAGE 8=; 



28?5 
28?6 
?8?7 

?8?8 

2a?9 

2631 
2872 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
78 4 4 
2345 
2846 
2847 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 



K04066 

I"04067 

004070 
004071 
004072 
004073 
004074 

004075 
004076 

004077 

004100 
004101 

004102 
0041CI3 
004104 

004105 

004106 
004106 
004107 



334100 
201106 

201040 
202046 
260140 
205040 
436042 

700600 
3500?0 

211240 
250240 
326240 

412042 
312i:>0 

201040 
26 014 



7006?10 

263140 



SUPTTL QUEUEING AND INTERRUPT PROCESSING 
|PUT A RrQUEiST l\ THE iJSER Queue:, 
JENTEH AT (JIM FOR INPUT, ODUT FCR OUTPUT. 
;CALLtO AT BTT" inTEPRuPT AN" I'UO LEVELS 

EXTERNAL SETACT.cPOPJ 



000006 
000001 

000003 
000021 
000000 
400000 
000037 

003605' 
0051006' 

003001 
000007' 
004106 ' 

000007 
000006 
000000 
004267' 



QIN! 
QOUTl 



QIOEND; 



SKIPA TACl.DEVnAT I » 

MOVE! TACliOEVnAD-OEVIAD<DFVDAT) i» 

-lOVEI TAC. TRIES :»INITIALIZE ERROR COUNT 

<OVE^ TAC.DSKC^KDEVOAT) 



OUSHJ PDPiSETACT 

«OVSI TAC.W8BIT 

ORM TACnEVI AOtTACl) 

noschehule ;• 

CONO PI.nSKOFF 
40S i)SRC»'T 

"OVNI DAT.l 
FXCH OAT.DFBUSY 
JUMPV nAT.QIOEMD 



JoSET lOACT 
;»SET WAIT FLAG 



i»!NCREMENT COUNTER OF TRANSFER REQUESTS 



IBJUMP IF DISK BUSY 



ANDCAM T4C.DEVlAD(TAfl) l» 

CAME TACl.DEVOAT l» 

HQVEI TAC.0 l» 

PUSHJ PDP.USRGO ;» 



003654' 

000000 



SCHEHULE 
ca^'0 PIiOSKON 
POPJ PDP, 



I ^ 



DSKSi^B - ALMOST DEVICE INDEPENDENT DISK SERVICE ROUTINES (BURROUGHS) 
OUeuEING AND INTERRUPT PROCESSINO 
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2856 
2857 
2958 
2859 
2862 
2861 
2862 
2863 
2864 
2865 
2866 
2367 
2868 
2869 
2870 
2871 
2872 
2873 
2874 



B6I4H0 
fiatlll 
004112 



004113 

(104114 



514100 
665100 
514100 



606040 

2542?0 



000006 
400000 
000006 



777777 

004115' 



IPUT A REOUEST IN THE MONITOR QUEUE. 

;ENTER AT MQIN FOR INPUT, MOOUT roR OUTPUT. 

;ENTER WITH C(TAC1 0-17)= -SI?E OE qLCIcK 

) C(TAC1 18-35) = CORE ADDRESS 

I C(TAC 18-35) = LOGICAL BLOCK NUH8ER 

INTERNAL MQIN.MQOUT 

EXTERNAL MQREQ,MQWAIT,SETACT,MOUEUE,WSYNC 



MQIN: 
MQOUT: 



004115 505040 0001303 



HRLZ TACl.DEVDAT: 
TLOA TACl, 400000 
HRL2 TACl.DEVDAr 
IFN FTRCHK,< 
TRMN TAC,-1 

HALT ,+1 



HRLI TAG, TRIES 



!BIT e=l IS READ INDICATOR 



iWRITING OR READING BLOCK MR SHOULD NEVER OCCUR HERE 

(CONTINUING AFTER HALT WILL YIELD INFORMATION 
I LOSS ON THE DISK 



2875 
2876 
2877 
2878 
2879 
2890 
2881 
2882 
2883 
2884 
2885 
2886 
2887 
2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 



("04116 
004117 

004120 
004121 
004122 
004123 

004124 
004125 
004126 
004127 

004130 
004131 
004132 
004133 



004134 
004135 
004136 
004137 

004140 

004141 



206046 
260140 

700600 
6070^0 
5401«0 
202120 

350640 
301640 
201640 
202640 

211640 
250640 
336000 
260140 



700600 
260140 
550646 
606640 
350003 
263140 



000021 
004072' 

00 4075' 
000600 
000007 
000004' 

000004' 
000000 
000560' 
000004' 

000001 
000007' 
000015 
004307' 



004106' 

003130' 

000021 

700000 

000000 

000000 



MOVSM TAC.DSKCigT(DEVnAT) iSTASH AWAY BLOCK #, ERROR COUNT. 



PUSrIJ PDP.SETACT 

^!0SCHEOULE' 

CONO PI .OSKOFF 

TLNN lOS.UBFS+NORELB 

HRR TACl, PROG 

MOVE^' TACli»MlPTR 

AOS ACl.MIPTR 
CAIL ACl.MQTOP 
MOVEI ACl.MQUEUE! 
MOVEM ACl.MIPTR 

MOVM ACl.l 
FXCH ACl.DFBUSY 

skipw Aci 

PUSHJ PDP.MONGO 



ISET lOACT 



lUSING BUFFER IN FREE STORAGE? 
(NO, RELOCATE 



(RING Index miptr 



JFORCE DFBUSY TO-1. EXTRACT PREVIOUS CONTENTS,' 

(ALREADY BUSY? 

(NO, START A MONITOR JOB 



SCHEDULE* 

CONO PI,DSKON 

PUSHJ PDPiWSYNr 

HRRZ ACl,OSKCNT(DEVDAT) (ANY ERRORS? 

TRNNACl,I00ERRMODTER!iniMPM 

AOS (POP) (NO, SKIP RETURN 

OOPJ PDP, 



nSKSRB - ALMOST DEVICE I "^JOFPENDENT 0]SK SERVICE ROUTINES (HU^ROUfiHS) MACRn,V36 19!05 4-JIJN-69 PAGE 87 
DUEUEING AND INTERRUPT PROCESblNr 

29P"0 !• 

?9!'l i* EVERYTHINfi FROM HERE THRU SFTHUN CALLED AT INTERRUPT LEifEL 

29?2 I" 

?9?3 IROUTINE CALLED BY INTERRUPT IN niSK, 

29?"l ;CHECK JriB FOR ERRORS, THEN START UP ANY WAITING JOB, 

39<^5 iUPON ENTRY, THE ACS HAVE oeFn SAVED. IDS CONTAINS ANY ERROR 

29PI6 (FLAGS, 

;?9?i7 

;?9fa INTERNAL DFINT.FTSWAP 

39?9 EXTERNAL ADVBFF , AOVBFF , P JOBN , SET I OD , P I OMOD 

2910 EXTERNAL MQRFQ , MO A V AL > DFRED , OFWRT 

?9il EXTERNAL J8TADR 

2912 EXTERNAL MRTOPiMOUEUE 

2 91,3 

2914 

2915 t"0'ti42 DFINTI 

2916 IFN FTSWAP,< 

2917 EXTERNAL SQREQ , SERA , SQGO, SWP I NT 

2918 004142 200040 000525' MOVE TAG, SERA l»WAS THAT A SWAPPING JOB? 

2919 004143 603040 200000 TLNE TACi200000 l» 

2920 004144 254000 000000 JRST SWPINT l»YES 

2921 > 

2922 004145 336000 000005' SKIPN RUNUSR I»WAS THAT A USER JOB? 

2923 004146 254000 004215' jRST 0FINT2 l*NO, MUST HAVE BEEN MONITOR 
2924 

2925 ,"04147 204300 000005' MOVS DEVdAT , RUNUSR l«YES 

2926 004150 405300 377777 ANOI DEVDAT , 377777 1»ClEAR READ INDICATOR BIT, 

2927 004151 602000 400000 TRNE IOS.IOImPM I •WR I TE-LOCK? 

2928 004152 260140 004212' PUSHJ P0P,0INT1A l«YES 

2929 004153 602000 300000 TRNE I OS , lOOTER ! I OOERR (»ERRORS? 

2930 004154 254000 004322' JRST 0FINT9 MERRQRS 

2931 004155 350006 000014 OFINTAI AOS DEVACC < DEVDAT ) |[NCREMEHT POINTER TO RETRIEVAL POINTER 

2932 004156 350006 000022 AOS SETCNT ( DEVDAT ) I INCREMENT RELATIVE BLOCK NUMBER 

2933 004157 370000 000006' SOS USRCNT I* 

2934 004160 260140 004335' PUSHJ POP,SETDUN ("TURN OFF 1/0 WAIT 
2975 004161 135040 003442' LD8 TAC.PJOBN 

2936 004162 200341 000000 MOVE PROG. JBTADR ( TAC ) 1»SET RELOC, AND PROT, FOR THIS JOB 
2937 

2938 004163 331000 000005' 5KIPL RUNUSR |»WAS IT A READ OR A WRITE? 

2939 004164 254000 004207' JRST DFINTI )»WRITE 
2940 

2941 004165 201066 000007 MOVEI TAC , »DEV I AD ( DE VDAT ) l*SET UP WORD COUNT 

2942 004166 271040 000001 ADDI TAC.l )• 

2943 004167 201100 000200 MOVEI TACl.BLKSIE 

2944 004170 542120 000001 HRRM TAC1.9TAC 
2945 
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S'^a IFG CHKCNT,< 

2947 004171 200046 000010 MOVE T AC , DEVOAn ( OEVOAT ) 

2948 004172 603040 010000 TLNE TAC,CKSUPR 

2949 004173 2540710 0042l?5i JRST DINT0R : 

2950 004174 550046 000007 MRRH TAG , DEV I AD ( DEVDAT) 

2951 004175 270040 004613' ADD TAC , C XWO NSLKS?, ? 3 

2952 004176 260140 004473' PUSHJ PDP,CHKSUM (CLEARS lOACT 

2953 004177 200046 000014 MOVE T AC, DEVACC ( DEVDAT ) 

2954 004200 554041 777777 MLRZ TAC,-1(TAC) 

2955 004201 316040 000002 CAMN TAC.TACl 

2956 004202 254000 004205' jRST ,*Z 

2957 004203 260140 004516' PUSHJ P0P,CKREC3 

2958 004204 202006 000002 MOVEM I OS , DEV I OS ( DEVDAT) 

2959 > 

2960 004205 DIigT0Bt 

2961 004205 260140 003065' PUSHJ PDP.DFINX lENTER INPUT ROUTINE 

2962 004206 334000 000000 SKIPA 

2963 004207 260140 003240' DFINTll PUSHJ PDP,OFOUTX (CHECK FOR MORE OUTPUT 

2964 004210 402000 000005' SETEM RUnUSR 

2965 004211 254000 004236' JRST 0EIN)T4 
2966 

2967 004212 550046 000014 DINT1A( HRR2 TAC , DEVACC ( DEVDAT ) IMRITE-LOCK FOUND, SET WL8IT 

2968 004213 550041 777777 URR2 TAC,-1(TAC) 

2969 004214 254000 004565' JRST SFTWL (AND RETURN 
2970 

2971 004215 204320 000003' 0FINT2I MOVS DEVDAT , 9M0PTR (IT WAS A MONITOR JOS 

2972 004216 405300 377777 ANDI DEVDAT , 377777 (REMOVE POSSIBLE READ INDICATOR 

2973 004217 606000 300000 TRNN I OS , I ODFRR I I ODTER (ERRORS? 

2974 004220 254000 004224' JRST 0FINT3 (NO. 

2975 004221 370046 000021 SOS TAC, DSKCNT ( DEVDAT ) (YES, TRIED ENOUGH? 

2976 004222 602010 777777 TRNE TAC,-1 

2977 004223 254000 004237' jRST DtNT4A (NO, TRY AGAIN, 
2978 

2979 004224 542006 000021 DFINT3I NRRM I OS , OSkCNT ( DEVD AT ) (SAVE ANY ERRORS 

2980 004225 554046 000021 HLRH TAC , DSKCNT ( DEVDAT ) (WRITE-LOCK ERROR? 

2981 004226 602000 400000 JRNE IOS,I0IMPy 

2982 004227 260140 004565' PUSHJ PDP.SETWl (YES, SET WLRIT 

2983 004230 260140 004335' PUSHJ PDP,SETDUN 

2984 004231 402020 000003' SET2M 9M0PTR (REMOVE THIS MONITOR JOB 

2985 004232 350040 000003' AOS TACMOPTR (INCREMENT POINTER. 

2986 004233 301040 004125' CAIL T'C, MOTOR 

2987 004234 201040 004126' MOVEI TAC.MQUEUE 

2988 004235 202040 000003' MOVEM TAC.MOPTR (FALL THROUGH TO DFINT4 
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29R9 
?9O0 
2901 
?992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 
3000 
73C"1 
3072 
32K3 

30B5 



001235 
001237 
001237 

004240 



IDETEHMINE NEXT TRANSFER TO MAKE ACCORDING TO PRIORITY 

i 1) SWAOPING 2) MQ I/O 3) BUFFERED MODE I/O 
2020E6 000002 DFINTH MOVEM I OS . DEV lOS ( DE VOAT ) JCLEAR IQACT 

0INT4A1 IFN FTSWiP.< 
3320^0 000524' SKIPF «;qrE0 (SWAPPING JOP WAITING? 

254000 000000 JRST SOGO lYES. START IT 

> 

INTERNAL DINT1R 



001211 332020 000003' DINTiai SKIPE SMOPTR 
001242 254000 004307' JRST MONGO 



001213 331000 000006' 

004211 254000 004247' 

004245 402000 000007' 

004246 263140 000000 



SKIPL USRCNT 
JRST FINOV 
SET2M OFRUSY 
POPJ POP, 



(MONITOR JOB WAITING? 
lYESi START IT UP 

lUSER WAITING? 
lYES, 

INO. TURN OFF BUSY FLAG 
lEXIT INTERRUPT 
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30^5 
3007 
30^18 
30?9 
3010 
3011 
3012 
3013 
3014 
3015 
3015 
3017 
3018 
3019 
3020 
30?1 
3022 
3023 
3024 

3035 
3025 
3027 
3028 
3029 
3030 
3031 
3032 
3033 
303 4 
3035 
3036 
3037 
3038 
3039 
3040 
3041 
30«2 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
3050 
3051 



iriND A WAITING USER 



004247 
("04250 



004255 
004255 
004257 
004260 
004251 
004262 



004267 
004270 
004271 
004272 
004273 
004274 
004275 
004275 
004277 
004300 
004301 
004302 

004303 
004304 

004305 
004305 



5503?0 
205040 



000002' FINDVI 
4000P0 



HRR? DEVOAT.DDBPTR 
MQVSI TAC.W89IT : 



(PREPARE TO TURN OFF WAIT INDICATOR 



004251 5541iJ5 

004252 332000 

004253 302100 

004254 201300 



335006 
254000 
335006 
2540(»0 
554306 
254000 



000000 
000005 
445353 
000237' 

000007 

004255' 

000010 

004253' 

000003 

004251' 



DFINT6I HLRZ TACl , ( DEVOAT ) 
SKIPE DEVDAT 

CAIE TAC1,(SIXBIT /D'5K/) 
MOVEI DEVDAT, DSKDDB lYES 



lEND OF DISK DDBS? 



RESET TO TOP 



SKIPGE DEVIAD(DEVDAT) 



)ANY READS WAITING? 



JRST 0FINT7 lYFS 

SKIPGE DEVOAD(DEVDAT) lANY WRITES WAITING? 

JRST 0FINT6 (YES 

HLR? DEVDAT, DEVSFR(OEVDAT) (NO. TRY NEXT DDB 

JRST 0FINT5 



(START UP A USER WRITE 



0042*3 412045 000010 0FINT6( ANDCAM TaCi OEVOAD (DEVDAT ) (CLEAR OUTPUT WAIT BIT IN DOB 
0042A4 201040 000000 MOVEI TAC,0 (PREPARE TO SET BIT 0=0 !N RUNUSR 

004255 254000 004267' JRST USRGO 

(START UP A USER READ 
004255 412046 000007 0FINT7( ANDCAM T AC, DEV I AD ( DEVDAT ) (CLEAR INPUT WAIT BIT IN DOB 



206300 
436040 
350000 
135340 
200347 
200046 
205040 
200046 
550041 
205100 
331000 
254000 

541125 
344100 

541126 
344100 



000005' 

000005' 

000013' 

004161' 

004162' 

000003 

000002' 

000014 

000000 

777500 

000005' 

004305' 

000007 
000000 



USRGO! 



MOVSM DEVDAT, RUNUSR 

nRM TAC. RUNUSR 

AOS UXFERS 

LD8 PROG.PJOBN 

MOVE PROG. JBTADR(PROr.) 

MOVE TAC,DEVSER(DEVDAT) 

MOVSM TAC.DORPTR 

MOVE TAC,DEVACC(OEVDAT) 

WRRZ TAC, (TAC) 

MOVSI TACliNBLKS? 

SKIPL RUNUSR 

JRST USRG03 



(SAVE DEVDAT FOR USE AT DFINT 

(SET READ (B0=1) WRITE (B0=0) INDICATION 

(COUNT TOTAL USER TRANSFERS 

(SETUP RELOCATION FOR JOB 

(GET DOB LINK 

(START SEARCH WITH NEXT DDB 

(GET POINTER LOCATION 

(GET RETRIEVAL POINTER (XWO CHECKSUM , BLOCK #) 

(READ? 



HRRI TAC1,?DEVIAD(DEVDAT) (GET ADDRESS OF RING BUFFER 
40JA TACIiDFRED; (form IOWO AMD READ 



000010 USRG031 HRRI TAC1>9DEV0AD(DEVDAT) (GET ADDRESS OF OUTPUT BUFFER 
000000 AOJA TACl.OFWRT (FORM IQWD AND WRITE 
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3052 
3B53 
3854 
3355 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3057 
3066 
3069 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
307B 
3079 
3080 
3081 
3032 
3063 
3084 
30f15 
3085 
30fl7 
3088 
3389 



ISTART UP A MONITOR READ OR WRITE 



004307 
004310 
004311 
004312 
004313 

004314 
004315 
004316 
00431 7 
0043?0 
004321 



004322 
004323 
004324 
004325 
004326 
P043J7 
004330 
004331 
004332 
004333 
004334 



004335 
004335 
004336 
004337 
004340 
004341 



204220 
421200 
200104 
554040 
270100 

500104 
275100 
554044 
331020 
J54000 
254000 



350000 
370046 
606040 
254000 
200040 
331000 
271040 
205100 
436101 
402000 
254000 



434005 
421000 
523000 
254000 
253140 



0000 
4000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0043 
0043 



03' 
00 
20 
04 

01 

20 

01 

21 

03' 

06' 

04 ' 



MONGO: 



T LH 



MOVS ITEM.SMDPTR 

ANDCMI ITEM, 400000 

MOVE TACl.OSKBUF ( ITEM) 

MLRE TACITEM 

400 TACl.TAC 

HLL TACl.DSKBUEdTEM) 

SUBI TACl.i 

HLRZ TACDSKCNTCITEM) 

SKIPL 9M0PTR 

JRST DFWRT 

JRST DPRED 



(ERROR ON USER JOS, 



000014' DEINT9I AOS ECOUNT 

000021 

777777 

004155' 

000006 

000005 ' 

000001 

400000 

000007 

000005' 

004237' 



SOS TACiDSKCNT(OEVOAT) 

TRNN TAC,-1 

JRST DEINTA 

MOVE TAC.DEVDAT 

SKIPL RUNUSR 

ADDI TACDEVOAD-DEVIAO 

MOVSI TACli400000 

ORM TAC1,DEVIAD(TAC) 

SETZM RUNUSR 

JRST DINT4A 



IXWD CORE ADORESSi SAVED DEVOAT 
ICLEAR READ INDICATOR 
(GET CONTROLLING lOWD 
IGET CORE ADDRESS 

IRESTORE LH IN CASE ADDING REL, CAUSES OVREL IN 

IFORM lOWD LENGTH ADDRESS 
IGET LOGICAL SLOCK* 



ICOUNT USER HARDWARE ERRORS 
ITRIED ENOUGH? 



lYES. 

)N0, RESET 
IREAD? 
I NO. 



FLAG SO IT WILL GO AGAIN, 



IRESTORE WAIT BIT TO DEVIAD OR DEVOAD 
JCLEAR USER INDICATOR 
JOO NEXT TASK, 



)CLEAR I/O DONE FLAG IF IT IS ON. 



SETDUNI 



000002 
010000 
000001 
000000 
000000 



OR lOS.DEVIOS(OEVDAT) 
ANDCMI InS.IOACT 
TLZE lOS.IOW 
JRST SETIOD 
POPJ POP, 



I* 
I* 
)• 
I* 
)• 
l» 
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3090 SUBTTL ERRORS.' SUBROUTINES, 

3091 (ERROR ROUTIMES CALLED FRO" UUO LEVEL 

3092 =,/■--, ) 

3093 EXTERN EXCALP lEHRPTUi TPOP J - 1 ■ 
3094 

3095 DEFINE ERRORS (X) ,< ,> , . 

3095 PUSHJ POP.CLRBUF (CLEAR ANY DUMP BUFFER j 

3097 . jSP TA'C.ERRPTU . (OUTPUT A MESS4G ,; 

3098 . ASCIZ fXt . , 1 h ;f 

3099 jRSt EXCALP ' (TYPE *'UUO FROM" MESSAGE ANDdUlT ..;- 

3100 > 
31!?ll 

3102 004342 DFERRll ERRORS <01SK FULL— YOUR JOB HAS LOST,. >♦ 

31i»3 J104342 260140 003654' PUShJ PDP,CLRBUF (CLEAR ANY DUMP BUFFER.. 

31(i!4 004343 265040 000000 JSP TAC.ERRPTU (OUTPUT A MESSAG 

31H15 004344 045710 444646 ASCIZ » <DISK FULL-- YOUR JOB HAS LOST. >».,.,. 

BI04345 455010. 652630 

004346 461325 520262 

004347 476532 220224 

004350 476044 044202 

004351 515011 447646 

004352 521344 020174 . . : , . 
UI04353 000000 000000 

3106 004354 254000 000000 jRST EXCaLP (TYPE "UUO FROM" MESSA-GE AND .QU 1 T ..-, 

3107 .: r- 

3108 004355 201000 400000 DFERR2I MOVEI lOS.IOlMPM 

3109 004356 437006 000002 ORB I OS . OEV lOS ( DE VDAT) , ,. .... ,.■.':, 

3110 004357 263140 000000 POPJ POP, 

3111 V : 

3112 004360 ,, . 0FERR3t ERRORS <INCORRECT RETRIE.VAL INFORMATI0N>f ,.- ■ ', 

3113 004360 260140 003654' PUSHJ PDPiCLRBUF (CLEAR ANY DUMP BUFFER 

3114 004361 255040 004343' jSP TACERRPTU (OUTPUT A MESSAG :; . 

3115 004362 446350 347644 ASCIZ tiNCORRECT RETR lEyAL • I ^FORMAT 1 0N» , ,. . . ., . 
004363 512130 352100 

i»04364 512132 451222 . - - r'. •..-,;■ . ■- '• 

004365 426550 146100 - :■ . , - ■■•■; 

004365 446350 647644 

004367 466032 444636 :,;.;, ;:, ,, ; , 

004370.470000.000000 ■•,.r.-;: v :: '',.■■.■. ■ , ■; ' ■-; ■ , - -. 

3116 004371 2540^0 004354' jRST EIXCALP ■ ■ I TYPE^ ^'UUO FROM" MESSAGE ANQ- 0'U,1T 
3117 

3118 (THESE ERROR ROUTINES ARE GENERALLY CALLED AFTER SETLE HENCE 0(POP) IS XWD PHOJ.PROG 

3119 

3120 004372 201040 000003 DFERR61 HOVEI TAC.NORITE (FILE ALREADY BEING ALTERED 

3131 004373 550100 000014 OFERRYl HRRZ TACl.UUO: 

3122 004374 270100 004605' ADD TACl , C XWD PROG. ERRPIT] (FORM POINTER TO UUO PARAMETER BLOCK 

3123 004375 542060 000002 HRRM TAC,»TAC1 (STORE ERROR CODE 

3124 004376 262140 000001 POP PDP.TAC (REMOVE XWD PROJ.PROG 

3125 004377 254000 003554' JRST CLRBUF (RELEASE ANY RESOURCES 
3126 

3127 004400 201040 000002 DFERR5I MOVEI TACiPROTF (PROTECTION FAILURE 

3128 004401 254000 004373' JRST DFERRY 
3129 
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31^0 
3131 

3132 
3133 
3134 
3135 
3135 
3137 
3138 
3139 



3140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 



3148 
3149 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3158 



ti044P)2 
t»044P3 

K044C?4 
Ha44fl5 

^044H6 
PI044(«6 
0044I!I7 
004410 
004411 
004412 
004413 
1504414 
("04415 
004416 
004417 
004420 

004421 
004421 

004422 
004423 
004424 
004425 
004426 
004427 
004430 
004431 
004432 
004433 

004434 
004435 

004436 
004437 



201040 
2540«10 



201040 
254000 



260140 
265040 
462371 
501010 
202131 
511011 
425010 
432132 
521011 
426460 
254000 



000001 DrERR4i MOVEI TACMOTIMM 
004373' JR5T OTERRV 



260140 
265040 
472372 
472372 
202152 
202071 
202231 
476351 
510000 
254000 



000000 DFERR7: 
004373' 



MOVEI TACiNOTlNU 
JRST DFERRY 



lUSER NOT IN MFD 



IFILE NOT IN UFD 



003654' 

004361' 

745652 

147210 

652212 

040654 

444614 

242634 

640632 

000000 

004371' 



DFERR8! ERRORS <l00KUP AND E^iTER HAVE DIFFERENT NAMES>f 
PUShJ PDP.CLRBUF ICLEAR ANY DUMP BUFFER 
JSP TACERRPTU lOUTPUT A MESSAG 

ASCI? 'LOQi'UP AND ENTER HAVE DIFFERENT NAMESt 



700600 004134' 



JRST EXCALP 
DFERR9i SCHEDUUEf 



ITYPE "UUO FROM" MESSAGE AND QJIT 



003654' 

004407' 

420212 

543620 

242612 

751212 

620232 

152236 

000000 

004420 ■ 



CONO PI.DSKON 

ERRORS <NOT ENOUGH FREE CORE IN MONITOR>f 
PUSHJ PDP.CLRBUF ICLEAR ANY DUMP BUFFER 
JSP TACERRPTU lOUTPUT A MESSAG 

ASCI? fNOT ENOUGH FREE CORE IN MONITORt 



jRST EXCALP 



(TYPE "UUO FROM" MESSAGE AND QUIT 



201040 000004 DFER10I MOVEI TAC.RENFal 
254000 004373' JRST DFERRY 



201040 
2540i?0 



004440 201040 

004441 261140 

004442 254000 



000005 DFERllt MOVE! TACiNCFIlE 
004373' JRST DFERRY 

000000 0FER12I MOVEI TAC,0 

000001 PUSH PDPfTAC 
004373' JRST DFERRY 



lADD SOMETHING TO BE REMOVED (SINCE SETle NOT CALLED) 
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3159 


004443 


205000 


000400 


3160 


(^04444 


4130^6 


000002 


3161 








31A2 


004445 


260140 


003654' 


3163 


?04446 


265040 


004423' 


316t 


004447 


472371 


626644 




P04450 


426071 


753212 




004451 


512030 


246212 




004452 


202111 


151606 




004453 


202572 


244650 




004454 


425010 


551244 




004455 


476440 


000000 


3165 


004455 


254000 


004433' 


3166 








3167 








3168 


004457 


205000 


000400 


3169 


004460 


413006 


000002 


3170 








3171 


004461 


260140 


003654' 


3172 


004462 


265040 


004446' 


3173 


004463 


472371 


626644 




004464 


426071 


753212 




004465 


512030 


246212 




004466 


202111 


151606 




004467 


202450 


540610 




004470 


202132 


251236 




004471 


510000 


000000 


3174 


004472 


254000 


004456' 



MERAl 



RERAt 



MOVSI lOS.NORELB 

ANDCAB lOSiDEVIOS(DEVDAT) 

ERRORS <MON-RECOWERAPLE DISC WRITE ERROR>t 

PUSNJ PDP/CLRSUF ICUEAR ANY DUMP BUFFER 

JSP TAC.ERRPTU ' lOUTPUT A MESSAG 

ASCI' tNON-RECOVERABLE DISC WRITE ERRORt 



JRST EXCALP 



(TYPE "UUO FROM" MESSAGE AMD QUIT 



MOVSI lOSrNOREUB 

ANDCAB IOS,DEVIOS(DEVOAT) 

ERRORS <NON-RECOVERABLE DISC READ ERROR>t 

PUSHJ POP.ClRBUF ICUEAR ANY DUMP BUFFER 

JSP TAC.ERRPTU (OUTPUT A MESSAG 

ASCI^ tNON-RECOVERABLE DISC READ ERRORt 



JRST EXCALP 



ITYPE "UUO FROM" MESSAGE AND QUIT 



DSKSf)B 



3175 

3176 

3177 

3178 

3179 

3ie0 

3181 

3182 

3183 

3184 

3165 

31R6 

3187 

3188 

3189 

3190 

3191 

3192 

3193 

3194 

3195 

3196 

3197 

3198 

3199 

32H0 

321^1 

32:12 

32PI3 

32"'4 

32P5 

3206 

32P17 

32f8 

32C9 

3210 

3211 

3212 

3213 

3214 

3215 

3216 

3217 

3218 

3219 

3220 

3221 

3222 

3223 

3224 

3225 

3226 

3227 
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004473 
l?04474 
C104475 
004476 
e04477 
004500 
0045?1 
PI04502 
0046^:3 
0045114 
004505 
0045^6 
004507 



004510 344100 



004511 
0045t2 
004513 
004514 
1^04515 
?I04516 
004517 
004520 



261140 
436746 
201040 
272040 

254000 
435000 
350000 
263140 



004521 
004522 

004523 
004524 
004525 
004526 
004527 
004530 
004531 
004532 
004533 



201100 
255200 

270101 
255200 
253040 
554040 
553000 
270100 
623100 
271100 
26314a 



jcalled at BOTH interupt and uuq levels 

(COMPUTE CHECK-SUM, 

■•ENTEH WITH C(TAC 18-35) SET TO BUFFER ADDRESS 

IRETUHN WITH CtTACDSET TO O^lES COMPLEMENT SUM IN RH. 



554100 
3051^0 
201100 
200000 
420006 
436006 
603000 
271047 
504040 
260140 
413006 
620000 
263140 



000001 

777600 

777600 

004617' 

000002 

000002 

000200 

000000 

000002 

004521' 

000002 

010000 

000000 



lis COUNT GREATER THAN CHKCNT? 



IFG CHKCNT, <INTERNAL CHKSUM 
CHKSUMi ULRE TACl.TAC 

CAIGE TACli-CHKCNT 

MOVEI TACl. -CHKCNT )YES, USE CHKCNT 

MOVE lOS.CXwn UBFS.inACTJ 

ANDCM IOS,DEVIOS(DEVDAT) 

lORM lOS.DEVIOStDEVDAT) 

TLNE lOS.UBFS 

ADDI TAC,(PROG) (NO, RELOCATE, 

HRL TAC.TACl IRESET COUNT IN LH AFTER POSSIBLE OVERFLOW 

PUSHJ POP, CHECK 

AN0CA8 lOSiDEVIOS(DEVDAT) 

TR2 lOS.IOACT 

POPJ POP, 



34525' CHKSM3! AOJA TAC1,CHKSM2 



IBRING CARRY AROUND 



000001 
000002 
010000 
000011 1 
000000 
100000 
00001 1 ' 
000000 



(CHECKSUM ERROR COUNTING ROUTINE 
CKREC2: PUSH POP, TAG 

lORM AC3,DEVIOS(0EVOAT) 

MOVEI TAC1I0000 

ADDM TAC.CKSMCT 

JRST TPOPJ 
CKREC3! lORl lOS.IOQTER 

ADS CKSMCT 

POPJ POP, 

> 

(TIMING OF MAIN LOOP IS 13.8 MICRQ-SECS AVERAGE, 
(THIS IS 1.8 MILS OR SO FOR 128 WORDS, 



000000 
004523' 

000000 

004510 ' 

004523' 

000002 

000002 

000001 

000001 

000001 

000000 



IFN 



check: 



<IFG CHKCNT, <CHKCNT*>>FTCHECK*FTMONP*FTSWAP , < 



INTERNAL CHECK 
MOVEI TAC1.0 
JFCL 4,.*1 



CHKSMll ADD TACl, (TAG) 
JFCL 4,CHKSM3 

CHKSM2! A08JN TACCHKSMI 
HLRH TAC.TACl 
HRRiS TACl 
ADD TACl, TAG 
TLZE TACl.l 
ADDI TACl,l 
POPJ POP, 



ICLEAR SUM 

•CLEAR CARRY0 FLAG 

(ADD NEXT WORD 
(JUMP IF CARRY0 
ILOOP UNTIL DONE 
(ADD HALVES 



ICARRY INTO LH7 

lYES, BRING IT AROUND 



aSKSRB 
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3226 








32?9 








3230 








3231 


004534 


550046 


000022 


3232 


004535 


275040 


000001 


3233 


004536 


242040 


000007 


3234 


004537 


270040 


000002 


3235 








3236 


004540 


550106 


000015 


3237 


004541 


602100 


400000 


3238 


004542 


254000 


004552' 


3239 








3240 


004543 


607040 


777777 


3241 








3242 


004544 


602040 


400000 


3243 


004545 


254000 


004551' 


3244 


004546 


313040 


000002 


3245 


004547 


542046 


000015 


3246 








3247 


004550 


263140 


000000 


3248 


004551 


660100 


777777 


3249 








3250 


004552 


271040 


000177 


3251 








3252 


004553 


242040 


777771 


3253 


004554 


213000 


000001 


3254 


004555 


666040 


400000 


3255 








3256 


004556 


664000 


040000 


3257 








3258 


004557 


303101 


000000 


3259 








3260 


004560 


542046 


000015 


3261 








3262 


004561 


263140 


000000 



(UPDATE DEVCMT IF NECESSARY, DEVCNT HAS SIZE CF FILE IN R,M. (IN ^ORDS Ir POSSIBLE, 

J OTHERWISE NEGATIVE BLOCK COUNT), 

) ENTER WITH SIZE OF CURRENT BLOCK IN TACl 



UPDEVC: URR2 TAC,SETCNT(DEVD4T) 
SUBI TAC.l 
ISH TAC,BLKP2 
ADO TACTACl 



I»CONVERT CURRENT RELATIVE BLOCK NUMBER TO WORDS 

l« 

l« 

I«ADO IN THE ADDITIONAL WORDS IN THIS NEXT: 

) OUTPUT COMMAND. 
HRRZ TACl,OEVCNT(DEVnAT) JoPICK UP PREVIOUS MAXIMUM FILE SIZE OF COMPARISON, 
TRNE TACl, 400000 J»PREVIOUS MAXIMUM SIZE GREATER THAN 2 ExP 17 WORDS? 
JRST UP0VC2 )»YES, THEN COMPARE AND SAVE NEGATIVE BL'^CK COUNTS, 

TLNN TAC,-1 )»N0, DOES THE NEWLY COMPUTED CURRENT FUE SIZE EXCEED 

(• 2EXP17 WORDS? 
TRNE TAC, 400000 to 

JRST UPDVCl mYES, GO SAVE NEGATIVE BLOCK COUNT, 

CAMLE TAC, TACl l»NO, COMPARE POSITIVE WORD COUNTS 

HRRM TAC,DEVCNT(DEVDAT) J»UPDATE MAXIMUM FILE SIZE ONLY IF PREVIOUS 

) MAXIMUM Exceeded 



POPJ POP, 
UPDVCll TRO TAC1,-1 

UPDVC2I ADDI TAC,BLKSIZ-1 

LSH TAC,-BLKP2 

MOVNS TAC 

TRON TAC, 400000 



)• 



IsSET PREVIOUS MAXIMUM AS ONLY ONE BLOCK 

!• (THUS FORCING CURRENT BLOCK COUNT TO BE STORED), 

(•CONVERT POSITIVE WORD COUNT TO NEGATIVF ^ 

I BLOCK COUNT, 



l»MORE THAN 2EXP17 BLOCKS (16,777,216 WORDS') 

I IN THIS FILE? 

JoYES, (PREPOSTEROUS) SET ERROR BIT AND sTOIrE 

I BLOCK COUNT WODULO 2EXP17 

(•NO, COMPARE PREVIOUS MAXIMUM VERSUS PRFSE^T 

( FILE SIZE, 
HRRM TAC,DEVCNT(DEVDAT) (•STORE NEW MAXIMUM FILE SIZE ONLY IF PRrVIDUS 

(• MAXIMUM EXEEDED. 
POPJ PDP, I* 



TROA IOS.IOBKTL 
CAILE TACl, (TAC) 



OSkSOB 
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3263 
^264 
32A5 
3266 
3267 
32fi8 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3278 
7279 
32 = 
3281 
32?2 
3283 



(OUTPUT WRITE-LOCK ERROR. FREE THE BLOCK AND GET NEW ONE. 

['04562 554046 00(1021 WLERi! HLR? T4C , DSKCNT ( OE VDAT ) JPICK Up BLOCK NUMBER. 
004563 260140 003464' PUSHJ PQP.SETFRE iFRE'^ THE BLOCK 

l?04564 254000 003371' JRST QFGETP (GET AMOTHER, " 

iSET WRITE-LOCK INDICATION IM A SAT ENTRY. 
lENTER WITH 4 BLOCK NUMBER !>' TaC. 



004565 
004566 
l!!045fi7 
004570 
004571 
004572 
004573 
004574 
004575 
004576 



201100 
2540110 
271100 
554220 
311040 
301044 
254000 
201200 
436220 
763140 



SETWLl! 



000022' SETWL! 
004570' 

000003 

000002 

000004 

007640 

004567 I 

400000 

000002 

000000 



^-OVEI TACl.SATENT 

JRST ,*2 

AOOI TAC1.SENTS2 

HLR2 ITEw,i?TACl 

CAML TAC, ITEM 

CAIL TACNUMBLKUTEM) 

JRST SETWLl 

MOVEI item.wlbit 

nRM ITEM.STACl 
POPJ POP, 



THE BLOCK IN THIS SAT ENTRY? 



I* 

l» 

I » 

)»IS 

)• 

l» 

;»N0, LOOP, 

I » 

)• 
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3284 


PI04577 






32«5 


5104577 


1413!'0 


000002 


3286 


H04600 


270400 


000002 


3287 


1^04601 


2704^5 


777776 


32S8 


004602 


0004fi6 


000002 


32B9 


004603 


331120 


000014 


3290 


004604 


331120 


000002 


3291 


004605 


000007 


000001 


3292 


004606 


002120 


000002 


3293 


004607 


000200 


000200 


3294 


004610 


000002 


000002 


3295 


004611 


000033 


000003 


3296 


004612 


000040 


020000 


3297 


l?04613 


777600 


000002 


3298 


004614 


I7I001H0 


020000 


3299 


004615 


000000 


000000 


33!"0 


?04616 


777777 


777777 


33511 


004617 


000200 


010000 



NO ERRORS OETECTEQ 
PROGRAM BREAK IS 004620 



nSKS"B 
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4C1 


JI0PI015 


INT 


ACCI^'1 


(?0?I&11 




4DRERH 


i;i0?440 


' EXT 


4LL0'< 


001044 




ASSCON 


4 M 


INT 


AT8L0K 


0000<?-3 




ATIND 


040000 




ATPP 


0000(^0 




AUREC 


(S03663 


EXT 


HLKSIZ 


H002710 




nuEWPD 


000013 


INT 


CHKS"! 


004523 




CHKSUM 


004473 


INT 


CKSMCT 


000011 


INT 


CLODPl 


003556 




CLRB2 


004063 




CURB'S 


004051 




CLRBUF 


003654 




CLSIV 


000002 


INT 


COR I WD 


00S1264 




CP0PJ2 


001410 


EXT 


DAFLG 


004000 




OAKAIT 


003415 


EXT 


DDBTAB 


003733 


EXT 


OEVSLK 


000016 


INT 


DEVDAT 


000006 


INT 


OEVIAD 


000007 


INT 


OEVNAM 


000000 


INT 


DEVSER 


000003 


INT 


0FCL16 


001551 




OFCU20 


001562 




OFCLSI 


001601 




0FCLII2 


5101577 




CFDU 


002467 




OFDMB 


002500 




0Fni3 


002514 




riFni6 


002533 




DFni9 


002574 




DFDO!^ 


002223 




DFOOl A 


002234 




DFOOPB 


002336 




OFno2E 


002316 




DFn03B 


002350 




DFn06 


002402 




0FD09 


002422 




0FrNT2 


000651 




DFFNT5 


000736 




OFERlE 


004434 




OFERRl 


004342 




DFERRI 


304402 




0FERR7 


004404 




nFERRY 


004373 




nFGT^2 


003411 





AC2 


000016 


INT 


ACCIN2 


000515 


f 


AOVBFE 


003240 


' EXT 


ALLXIT 


001061 




ASSPRG 


200000 


INT 


ATCLO 


0200C0 




ATLINK 


000003 




AUAVAL 


003664 


■ EXT 


AUWAIT 


0017'^7 


EXT 


BUFCL.R 


0037^6 


rxT 


CHECK 


004521 


INT 


CHKSM2 


004525 




CKREC2 


004511 




CKSUPR 


010000 




CLRAT 


002163 




CLRB3 


004064 




CLRBFl 


003676 




CLRCDR 


004025 




COMCHK 


0024.''7 


EXT 


CPOPJ 


003713 


EXT 


CRINIT 


000265 


INT 


OAREO 


0036'^7 


EXT 


DCBBIT 


000570 


EXT 


OEVACC 


000014 


INT 


DEVBUF 


000006 


INT 


nEVEXT 


000012 


INT 


OEVICS 


000002 


INT 


GEVOAD 


000010 


INT 


OFSUSY 


0000^7 


INT 


DFCL17 


0015?7 




nFCI.21 


001603 




OFCUSO 


001493 




nFOI0 


002441 




DFDIIB 


002603 




riFDIlC 


002501 




nFDII 


002525 




DFDI7 


00.25'^7 




DFDMPI 


002431 




nFOD0A 


002231 




DFOOIB 


002243 




nFD02C 


002303 




nFnD2G 


002327 




nF003C 


002362 




nFD07 


002407 




nFEN2A 


0006^6 




DFENT3 


000664 




DFENT7 


000763 




OFERll 


004436 




DFERR2 


004355 




0FERR5 


004400 




0FFRR8 


004406 




DFGETF 


003371 


INT 


OFIN 


002757 





AC3 


000017 


INT 


ACCINI 


700507 


t INT 


AOVBFF 


003065 


rXT 


ALTMFD 


021071 




ATBITS 


500000 




ATEXT 


000002 




ATNAME 


000001 




AUFLG 


010000 




BLKP2 


000007 




BUFPNT 


000012 


INT 


CHKCMT 


000200 


INT 


CHKSM3 


004510 




CKREC3 


004516 




CLCORl 


004026 


TNT 


CLRATl 


002170 




CLRS4 


004044 




CLRBIT 


004032 


INT 


CLRDDB 


003555 


INT 


CORBIT 


000263 




CPOPJl 


003720 


FXT 


DAAVAL 


003660 


rXT 


DAT 


000005 


TNT 


DDBPTR 


000002 




DEVBKO 


000017 


TNT 


DEVCNT 


000015 


TNT 


DEVFIL 


000011 


INT 


DEVMOD 


000004 


TNT 


DEVPPN 


000013 


TNT 


DFC16A 


001556 




DFCL2 


001506 




0FCL23 


001617 




DFCLUl 


001567 




DFOieA 


002447 




OFDUA 


002471 




DFDI2 


002504 




DF0I5 


002531 




DFDI8 


002571 




DFDMPO 


002215 




DFOOl 


002233 




0FD02A 


002241 




0F002D 


002312 




DFD03A 


002340 




DFD04 


002373 




DFD08 


002414 




DFENTl 


000640 




DFENT4 


000720 




DFENTR 


000625 




DFER12 


004440 




DFEHR3 


004360 




DFERR6 


004372 




DFERR9 


004421 




OFGTFl 


003372 




OFINl 


002762 
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DFINIA 


002775 




OFIME 


002777 




0FIN5 


003030 




DFINe 


003062 




OFINTl 


004207 




nFINT4 


004236 




0FINT7 


004266 




DFINX 


003065 




DFLUK3 


001004 




0FL.UK8 


001066 




DF06A 


003162 




DF0T3A 


003124 




DF0UT5 


003144 




DFOUTS 


003215 




DFREO 


004321 


EXT 


DFREN 


001103 




DFREW3 


001213 




DFREN8 


001310 




OFREXT 


001207 




DFRN2A 


001144 




DFSETl 


002645 




DFSET6 


002676 




OFSETB 


002707 




OFSETX 


002660 




DIMTHB 


004205 




DINT4B 


004241 


INT 


DISKUP 


000562 


EXT 


0RSR3A 


001655 




0RSRt;6 


001701 




DSKBIT 


000567 


EXT 


DSKCON 


000526 


EXT 


DSKDSP 


000470 


INT 


nSKIM0 


000534 




DSKOFF 


004120 


EXT 


OSKSIH 


000040 




nSKSTP 


000567 


INT 


DTPIT 


200000 




nVDSK 


200000 


INT 


nvouT 


000001 


INT 


ERRSIT 


000001 




FAT 


000010 




F1MDE2 


001752 




FPNTRl 


000026 


INT 


FTOISK 777777 777777 




FTRA10 


000000 


INT 


FTSWAP 777777 777777 


INT 


GETPTR 


003012' 




GET23 


003716' 




GTBIT2 


003776' 




GTBIT5 


004016' 




GTCORl 


003732' 




HUNGST 


000001 


INT 


INRFR 


000400 


INT 



DFINIB 


003002' 




nFIN2 


003005' 




DFIN6A 


003044' 




DFINBA 


003063' 




DFINT2 


004215' 




nFINT5 


004251' 




0FINT9 


004322' 




DFLOOK 


000766' 




nFLUK4 


001025' 




DF044 


003131' 




DF07A 


003172' 




DFOUT 


003073' 




DF0UT6 


003l'i4' 




DF0UT9 


003233' 




DFREL 


003355' 




DFRENl 


001124' 




DFREN5 


001242' 




DFREN9 


.001312' 




OFRNIA 


001154' 




DFRN8A 


001306' 




DFSET3 


002660' 




DFSET7 


002737' 




OFSETC 


002711' 




DFWRT 


004320' 


EXT 


DINTIA 


004212' 




DIRSIZ 


000004 


INT 


nOWNDA 


003404' 




ORSRC0 


001677' 




nRSRC7 


001667' 




OSKBUF 


000020 


INT 


DSKCOR 


000010 




nSKFGS 


016200 


INT 


OSKINl 


000553' 




OSKON 


004421' 


EXT 


nSKSR 


004577' 




nsKXOB 


037200 




nuMppp 


001450' 


EXT 


DVIN 


000002 


INT 


ECOUNT 


000014' 




ERRPTU 


004462' 


EXT 


FINDE 


001720' 




FINDV 


004247' 




FTCCL 777777 777777 




FTLOGI 777777 777777 




FTRC10 777777 777777 


INT 


GETBIT 


003744' 


INT 


GETZl 


003711' 




GETZER 


003707' 




GTBIT3 


.004001' 




RTRIT6 


004021' 




GTPTRl 


003022' 




lAORCK 


:003702' 


EXT 


INPB 


1010000 


INT 



DFINID 


002773 




DFIN4 


003016 




DFIN7 


003053 




DFINT 


004142 


INT 


0FINT3 


004224 




DFINT6 


004263 




DFINTA 


004155 




DFLUK2 


001001 




DFLUK7 


001064 




DF04P 


003140 




DF08A 


003231 




DFOUTl 


003077 




DF0UT7 


003200 




DFOUTX 


003240 




DFRELl 


003367 




0FREN2 


001151 




DFREN7 


001315 




DFRENX 


001106 




OFRNIB 


001162 




DFSET 


002607 




DFSET5 


002670 




DFSETS 


002747 




DFSETD 


002723 




DFWUNS 


000565 


FXT 


DINT4A 


004237 




OIRSRC 


001634 




OR 


000016 


iNT 


nRSRC4 


001662 




0RSRC8 


001673 




DSKCNT 


000021 


INT 


OSKDDB 


000237 


TNT 


DSKFUL 


003447 




DSKINI 


000524 


iNT 


DSKRLB 


000020 


INT 


DSKSRB 


000000 


INT 


DSRC10 


001704 




OVDIR 


000004 


iNT 


nVLNG 


001000 


INT 


ENTRB 


020000 


INT 


EXCALP 


004472 


FXT 


FINOEl 


001726 




FPNTR 


000027 


INT 


FTCHEC 


000000 


INT 


FTMONP 


000000 


TNT 


FTRCHK 777777 777777 


TNT 


GETFCR 


003731 


TNT 


GETE2 


003713 




GTBITl 


003756 




GTBIT4 


004006 




GTBTIA 


003765 




HNGSTP 


003452 


rXT 


ICLOSB 


002000 


INT 


INSOl 


001765' 
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INSD10 


("02073' 




INSD."! 


0020'^t ' 




INSQS 


("0?0?3' 




INSD7 


0020S3' 




INSDIR 


001756' 




lOOKTL 


04007'0 


INT 


lOnTER 


1000?0 


INT 


lOS 


0000?!0 


INT 


ITEM 


0000714 


INT 


JBTSTS 


003443' 


EXT 


JOB 


001435' 


EXT 


JS4T06 


000624' 


INT 


LOCORE 


000262' 


INT 


MJPTO 


0000514' 




MOMGO 


004307 




MQIM 


004110 


INT 


MQTOP 


004233' 


EXT 


NBLKSH 777777 77761^0 




^jMP 


000ir»0 




NORI TE 


0000-^3 




igUMBIT 


011000 


INT 


nCLOSE 


0010'^0 


INT 


PDP 


000003 


INT 


PNTDIF 


2000^0 




PROG 


0000i?7 


INT 


PROTF 


000002 




PTRl 


000023 


INT 


OIOEND 


004106 




RECLAH 


003327 




RECLM5 


003344 




RENBIT 


020000 




RESinl 


003725 




RRIA 


003263 




RUNUSR 


000005 




SAT 


000036 


INT 


SATCHG 


000017 




SATGET 


003421 




SATMJ 


000034 


INT 


SAT04 


000615 




SATPIK 


(fl00016 




SATTEM 


000020 




SATWl 


003543 




SAVODL 


1^02355 


EXT 


SC^AT1 


002146 




SD 


000015 


INT 


SETeCB 


003314 




SETAOT 


004117 


EXT 


SET8F2 


003635 




SETBEI 


003630 




SETCNT 


000022 


INT 


SETDRB 


003574 


INT 


SETFR2 


003510 




SETIOD 


004340 


EXT 



INSOll 


002ir'0 ' 




INSD3A 


i'02013' 




INSD5A 


?I02043' 




TNSD7A 


1^02060' 




10 


000020 


INT 


I0DEi>iD 


^2^000 


INT 


lOENO 


l?.00040 


INT 


lOW 


^ 14 1 


INT 


JACCT 


100010 


INT 


JDAT 


000017 


INT 


J09EF 


1103700' 


FXT 


LBHir-H 


003466' 


FXT 


lookp 


04PI000 


INT 


MJOBN 


0000?0 


EXT 


MOPTR 


0000!'3' 




MQOUT 


004112' 


INT 


MQUEOE 


004234' 


EXT 


MCTRLC 


0020C0 




NOEILE 


0000C5 




NOT I MM 


000001 




MUMBLK 


007640 


INT 


OUT 


001504' 


EXT 


PIOMOD 


003622' 


FXT 


PRCHG 


021^000 




PROTl 


001444' 




PROTKX 


001434' 




PTRN 


000037 


INT 


nOUT 


0040>,7 ' 




RECLM2 


003332' 




RECLM6 


003353' 




RENTAL 


0051014 




RESrU 


0037^1' 




RRIB 


003261' 




RWTBIT 


010000 




SATBK2 


000276' 


INT 


SATCMT 


003457' 




SATGTl 


!il03431 ' 




SATOl 


(100577' 




SAT05 


00061^5' 


INT 


SATPTR 


000015' 


INT 


5ATTMP 


000021' 




SATWRT 


!^035'<6' 




SCANAT 


002143' 




SCNAT2 


7021=i7' 




SENT=:E 


0000113 


INT 


SET176 


003311' 




SETAT 


002201' 




SETBF5 


003643' 




SETBFO 


003634' 




SETDO0 


!1036«4 1 




SETQUN 


004335' 




SETFRE 


003464 ' 


INT 


SETLE 


(101340' 





INSD2 


001772' 




INSD3B 


002005' 




INS06 


002046' 




INSDfl 


^02070' 




lOACT 


010000 


INT 


lOnERR 


200000 


INT 


lOIMPM 


400000 


INT 


lOWC 


000020 


INT 


JBTADR 


004273' 


FXT 


JIFMIN 


000715' 


FXT 


JOBN 


003435' 


rXT 


LIR 


000040 




MFDBLK 


000000' 


!NT 


MONBUF 


000266' 




MQAVAL 


003670' 


FXT 


MQREQ 


003667' 


FXT 


MQWAIT 


003650' 


FXT 


NEWRIB 


003202' 




NORELB 


000400 




NOTINU 


000000 




NUMSAT 


1^00004 


iNT 


OUTBFB 


000200 


INT 


PJOBN 


004272 


FXT 


PRJPRG 


001447 


FXT 


PROTEK 


001423 




PROTKY 


001435 




OIN 


004066 




RCOUNT 


007777 




RECLM4 


003342 




REFLAG 


000012 


INT 


RERA 


004457 




RRI 


003262 




RT9IT 


100000 




S177A 


003306 




SATBLK 


003546 




SATENT 


000022 


INT 


SATGT2 


003455 




SAT02 


000606 




SAT06 


000620 




SATRD 


003520 




SATTOP 


000033 


INT 


SATXWD 


0000(11 


TNT 


SCNAT0 


002144 




SCNHLT 


002145 




SERA 


004142 


FXT 


SET177 


003304 




SETBFl 


003632 




SETBF6 


003647 




SETBUF 


003620 




SETDDl 


003615 




SETFRl 


003477 




SETHLT 


002214 




SETLE0 


001342 
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SETLE9 


001352' 




SETWL 


ei045(^5' 




SQREQ 


004237' 


EXT 


BTOIOS 


?I0C?030 


EXT 


SYSPP 


001356' 


EXT 


TACl 


m7>mz 


INT 


THSD4T 


001630' 


EXT 


TRIE<; 


0000^.3 




IJBFU 


1 1? 




UPDEVC 


004534' 




USRC^^T 


000006' 




UUO 


000014 


INT 


VRGPTR 


100000 




WER4 


004443' 




WPRO 


040000 




MRIS 


003273' 




WUFD 


002105' 





SETPTR 


003316' 




SET1.L1 


004567' 




SRCUl 


001742' 




SWPINT 


004144' 


EXT 


TA 


000012 




TB ■ 


000013 




TIME 


!" 7 1 4 ' 


EXT 


I.IAORCK 


003641' 


EXT 


UDLKC 


000772' 


EXT 


UPOVCl 


004551' 




usRsn 


004267' 




UXFERS 


000013' 




W8BIT 


400000 




WLBIT 


400000 


INT 


WRI 


003274' 




WSYNC 


004175' 


EXT 


WUEDl 


002114' 





SETSAT 


000563' 


INT 


SQGO 


004240 ' 


FXT 


STARTS 


000566' 




SYSDEV 


000100 


INT 


TAC 


000001 


INT 


TBITS 


0ia0002 




TPOPJ 


004515' 


fXT 


UBES 


000200 




UPOA 


003414' 




UP0VC2 


004552' 




USflG03 


004305' 




VOSKSR 


000424 


INT 


WAITl 


0:03370' 


FXT 


WLERA 


004562' 




WRIA 


003275' 




WTBIT 


400000 




WUFD3 


002130' 





A 


6# 


6 


























ACl 


6# 


6 


718 


720 


721 


723 


748 


749 


766 


771 


912 


913 


915 


916 




931 


943 


975 


976 


979 


980 


9R4 


986 


987 


991 


997 


998 


1031 


1032 




1074 


1036 


1038 


1047 


1048 


1049 


1053 


1054 


1084 


1085 


1142 


1143 


1145 


1146 




1159 


1176 


1195 


1205 


1209 


1215 


1243 


1250 


1293 


1294 


1482 


1483 


1494 


1547 




15R6 


1588 


1590 


1591 


1592 


1593 


1594 


1595 


1598 


1626 


1628 


1956 


1957 


1959 




1971 


2049 


2057 


2069 


2070 


2155 


2156 


2159 


2238 


2242 


2253 


2254 


2361 


2397 




2401 


2433 


24(19 


2413 


2436 


2437 


2454 


2455 


2456 


2462 


2463 


2464 


2469 


2470 




2471 


2529 


2530 


2533 


2593 


2595 


2696 


2718 


2719 


2722 


2723 


2780 


2814 


2816 




2819 


2821 


2822 


2823 


2883 


2884 


2885 


2886 


2888 


2889 


2890 


2896 


2897 




ACZ 


6# 


6 


876 


877 


879 


881 


884 


885 


951 


978 


960 


1080 


1443 


1448 




1479 


1480 


1482 


1483 


1485 


1490 


1493 


1494 


1548 


1592 


1594 


1595 


1596 


1624 




1626 


1627 


1631 


16 32 


1636 


1644 


1647 


1654 


1665 


1694 


1695 


1697 


1727 


1728 




1730 


1732 


1769 


1770 


1772 


1774 


1776 


1781 


1782 


1783 


1789 


1793 


1795 


1798 




1812 


1821 


1826 


1829 


1835 


1849 


1852 


1853 


1854 


1958 


1959 


1960 


1962 


1963 




2034 


2035 


2039 


204k) 


2054 


2057 


2058 


2075 


2077 


2079 


2152 


2153 


2157 


2159 




2160 


2165 


2166 


2167 


2168 


2239 


2241 


2362 


2472 


2697 


2760 


2781 


2797 




4C3 


6# 


948 


949 


1177 


1180 


1184 


1185 


1194 


1195 


1456 


1457 


1783 


1785 


1830 




1833 


1834 


2045 


2046 


2050 


2053 


2055 


2060 


2061 


2062 


2067 


2068 


2149 


2155 




2161 


2162 


2182 


2188 


2193 


2197 


2214 


2296 


2297 


3199 










ACCINl 


356# 


359 


























ACCIN2 


357 


360# 


























ACCIM 


352 


354* 


























ADREPR 


1519 


1527 


1702 


1711 






















A0V8FE 


2095 


2226 


2909 
























AOVBFF 


1994 


2085 


2909 
























AEFERR 


6# 


6 


























AL 


6# 


6 


























ALLOK 


544 


640* 


























ALLXIT 


652 


658* 


























ALTMFD 


467 


675* 


783 
























ASscnN 


6# 


6 


401 
























ASSPRG 


6# 


6 


2547 
























AT9ITS 


116* 


741 


























ATBLOK 


llia# 




























ATCLO 


118# 


485 


487 


1016 


1123 




















ATFXT 


108# 


1455 


1505 
























ATIND 


117# 


485 


1067 
























ATLIMK 


111# 


1463 


1480 


1483 


1493 


1494 


1512 
















ATNAf'E 


107# 


1452 


1507 
























ATPP 


106# 


1078 


1448 


1509 






















AUAVAL 


1261 


1362 


1392 


1420 


2621 




















AUFLG 


83# 


8 4 


1227 


1265 


1363 


1421 


2421 


2423 


2618 












AURECl 


1223 


1225 


1261 


1263 


1361 


1392 


1419 


2620 














AUWAIT 


1223 


1226 


1261 


1264 






















R 


6# 


6 


























RLKP3 


9 2* 


1546 


1564 


1790 


1824 


1883 


1915 


3233 


3252 












BLKSIE 


90* 


91 


125 


877 


1141 


1185 


1234 


1257 


1325 


1545 


1573 


158B 


1591 


1527 




1650 


1734 


1778 


1823 


1833 


1682 


1914 


2047 


2154 


2208 


2209 


2210 


2211 


2274 




2280 


2328 


2595 


2943 


3250 




















BUFCLR 


2611 


2642 


























RUFPNT 


6# 


6 


56 
























BUFWRD 


6* 


6 


57 

























CHECK 


3190 


3214 


3215# 
























CHKCWT 


154 
3180 


71# 
31R2 


647 
3183 


1334 
3212 


1394 


1399 


1404 


1640 


1813 


1820 


2104 


2126 


2128 


2946 


CHKSMl 


3218# 


3220 


























CHKSM2 


3195 


3220# 


























CHKSM3 


3l95# 


3219 


























CHKSUM 


1336 


1396 


1643 


1828 


2107 


2952 


3180 


3181i« 














CKREC2 


1832 


3198# 


























CKHEC3 


2957 


32213# 


























CKSMCT 


163 


171# 


3201 


3204 






















CKSUPR 


lf0# 


654 


2948 
























CLCORl 


2537 


2775 


2778# 
























cmooi 


2522* 


2526 


























CLKR 


6# 


6 


























CLR4T 


396 


1079 


1089 


1101 


1110 


1134 


1473# 
















CLR4T1 


14fl2# 


1491 


























CLRB? 


2817 


2818 


2822# 
























CLR93 


28213 


2823# 


























CLRBI 


28«»6# 


2e?)9 


2810 
























CLRB5 


2807 


2812* 


























CLRBFl 


2628 


2634# 


























CLRBIT 


2474 


2792 


2794# 
























CLRBUF 


660 


777 


1087 


1102 


1112 


1138 


1144 


1148 


1605 


1664 


1848 


1926 


1978 


1989 




2312 


2332 


2612# 


3103 


3113 


3125 


3137 


3145 


3162 


3171 










CLRCnR 


1495 


2777# 


























rLRDOB 


402 


2519 


2521* 
























CLSIK 


6# 


6 


588 
























CUSOUT 


btt 


6 


























CMWB 


6# 


6 


























COMCMK 


1519 


1526 


1732 


1710 






















C0R8IT 


3(«7# 


363 


























CORCn:t 


6# 


6 


























CORIWD 


308# 


365 


























CPOPJ 


1119 


1124 


1441 


1464 


2524 


2661 


2830 
















CPDPJl 


331 


462 


689 


693 


905 


960 


972 


996 


1441 


1458 


2667 








CP0PJ2 


905 


955 


























CRIMIT 


302 


3f"9* 


364 


2781 






















D 


61* 


6 


























DAAViL 


2335 


2356 


2373 


2617 






















OAFLR 


fl2# 


R4 


2374 


238B 


2614 




















DAREn 


2228 


2335 


2356 


2370 


2386 


2616 


















DAT 


btt 


6 


481 


493 


494 


512 


515 


516 


518 


523 


524 


533 


536 


537 




598 


611 


617 


640 


641 


650 


707 


725 


729 


740 


741 


808 


91^9 


920 




9?2 


923 


924 


926 


927 


930 


956 


957 


959 


990 


992 


994 


99'5 


1062 




1063 


1067 


11^3 


1106 


1108 


1160 


1204 


1211 


1213 


1229 


1230 


1234 


123(6 


1237 




1257 


1323 


1324 


1326 


1451 


1452 


1455 


1457 


1463 


1464 


1465 


1504 


15«5 


1506 




1507 


15'!8 


1609 


1510 


1511 


1512 


1554 


1558 


1559 


1635 


1636 


1637 


16i8 


1653 




1947 


1948 


1950 


1952 


1964 


1965 


2102 


2108 


2112 


2114 


2115 


2122 


212'4 


2127 




2133 


2308 


2309 


2311 


2316 


2327 


2655 


2662 


2698 


2701 


2727 


2735 


27S6 


2765 




2798 


2799 


2801 


2802 


2844 


2845 


2846 
















OAWAIT 


2356 


2387 


























OCRBIT 


422 


425 


























OCI. 


b# 


6 



























DCLI 


5# 


6 


























OCLO 


6# 


6 


























OCLR 


6# 


6 


























OORPTR 


158# 


386 


2531 


2633 


30!»8 


3040 


















ODPTIB 


3C3 


3^9 


2697 
























001 


6# 


6 


























ODO 


6« 


6 


























DEM 


6# 


6 


























nEVACC 


273# 


273 


394 


614 


550 


603 


641 


712 


747 


787 


815 


891 


1009 


1061 




1075 


1?98 


1111 


1118 


1162 


1167 


1269 


1271 


1378 


1398 


1433 


1478 


1524 


1554 




1727 


1736 


1769 


1794 


1798 


1549 


1853 


1671 


1924 


2004 


2030 


2040 


2088 


2102 




2171 


223B 


2297 


2931 


2953 


2967 


3041 
















DEVilR 


6# 


6 


























DEVBKO 


284# 


284 


508 


2042 


2142 


2176 


















riEvBLK 


2B0# 


280 


507 


818 


1047 


1232 


1237 


1901 


1965 


1974 


1985 


2041 


2045 


2068 




2074 


2143 


2152 


2166 


2175 


2193 


2194 


2217 


2248 


2261 


2289 








OEVS'JF 


b* 


6 


1023 
























OEVCHR 


b« 


6 


























PEVCVT 


276# 
1330 


276 

1881 


541 
1913 


636 
3236 


791 
3245 


812 
3260 


942 


1053 


1168 


1200 


1229 


1265 


1273 


1286 


OEVCTR 


6# 


6 


























DEVTiT 


6l» 


6 


355 


356 


357 


358 


361 


388 


389 


390 


392 


394 


398 


399 




4!^0 


433 


434 


446 


454 


468 


479 


486 


5C7 


508 


509 


514 


515 


539 




540 


541 


543 


547 


550 


561 


565 


589 


503 


606 


615 


521 


523 


631 




636 


63 7 


639 


640 


541 


643 


645 


653 


556 


595 


699 


712 


715 


719 




747 


7=53 


757 


767 


787 


798 


790 


791 


792 


795 


810 


811 


812 


815 




816 


818 


827 


876 


891 


9C8 


910 


913 


916 


921 


924 


941 


942 


943 




949 


961 


974 


976 


978 


1007 


10f9 


1021 


1023 


1045 


1047 


1048 


1053 


1050 




1061 


1065 


1069 


1071 


1073 


1075 


1004 


1098 


1104 


1111 


1116 


1118 


1137 


1152 




1163 


1167 


1168 


1172 


121^0 


1234 


1219 


1228 


1229 


1232 


1237 


1239 


1243 


1247 




1266 


1267 


1269 


1271 


1273 


1274 


1286 


1293 


1303 


1305 


133 


1332 


1335 


1337 




1338 


1358 


1364 


1378 


1386 


1395 


1398 


1402 


1414 


1416 


1422 


1425 


1429 


1431 




1433 


1451 


1456 


1478 


1504 


1506 


1510 


1521 


1525 


1562 


1567 


1568 


1571 


1572 




1578 


1590 


16U6 


1606 


1612 


1615 


1624 


1631 


1534 


1538 


1547 


1554 


1565 


1677 




1681 


1734 


1709 


1727 


1728 


1735 


1737 


1742 


1764 


1759 


1770 


1732 


1794 


1797 




1798 


18C5 


1841 


1849 


1852 


1853 


1863 


1869 


1871 


1872 


1875 


1881 


1886 


1887 




1891 


1896 


19211 


1904 


1913 


1919 


1922 


1924 


1925 


1930 


1937 


1940 


1943 


1945 




1956 


1963 


1965 


1972 


1974 


1976 


1983 


1985 


1987 


1997 


2004 


2005 


2010 


2015 




2019 


2027 


2030 


2034 


2039 


2040 


2041 


2042 


2044 


2045 


2049 


2055 


2066 


2058 




2070 


2074 


2086 


2089 


2097 


2100 


21?2 


2105 


2110 


2114 


2117 


2118 


2133 


2142 




2143 


2145 


2149 


2152 


2161 


2164 


2165 


2168 


2170 


2171 


2175 


2176 


2178 


2193 




2194 


22!!0 


2217 


2230 


2231 


2247 


2248 


2252 


2260 


2261 


2273 


2279 


2283 


2289 




2291 


2296 


2297 


2323 


2337 


2344 


2346 


2348 


2375 


2389 


2483 


2494 


2503 


2514 




2525 


2546 


2549 


2556 


2558 


2562 


2579 


2582 


2584 


2587 


2589 


2599 


2600 


2529 




2634 


2635 


2832 


2833 


2836 


2849 


2865 


2667 


2875 


2896 


2925 


2925 


2931 


2932 




2941 


2947 


2950 


2953 


2958 


2967 


2971 


2972 


2975 


2979 


2980 


2992 


3008 


3011 




3012 


3014 


3016 


3018 


3020 


3025 


3032 


3034 


3039 


3041 


3047 


3050 


3071 


3074 




3085 


3109 


3160 


3169 


3185 


3186 


3101 


3199 


3231 


3236 


3245 


3260 


3255 




DEVEXT 


6« 


6 


268# 


268 


479 


488 


5519 


565 


6H6 


716 


757 


790 


811 


827 




916 


943 


949 


978 


1046 


1071 


1073 


1094 


1243 


1306 


1456 


1504 


1940 


2247 




2260 




























DEVFIL 


bit 

1451 


15?i6 


Zbbtt 


266 


561 


695 


753 


792 


310 


913 


976 


1219 


1247 


1303 



OEVUD 


6# 


6 


398 


2584 


2833 


2839 


2848 


2941 


2950 


3016 


3032 


3047 


3076 


3078 


HEVIOS 


bP 


6 


434 


446 


454 


539 


653 


910 


1045 


1069 


1364 


1416 


1422 


1429 




15?5 


1634 


17C!9 


1764 


1841 


1869 


1891 


1896 


1919 


1987 


2015 


2019 


2027 


2044 




20fi5 


?.l"i\f 


2117 


2291 


2375 


2389 


25H3 


26C0 


2629 


2634 


2958 


2992 


3085 


3109 




316^ 


3169 


31S5 


3186 


3191 


3199 


















DEVLOG 


6# 


6 


























nEV>inO 


6« 


6 


400 


2546 






















nEVMiM 


6# 


6 


358 


392 






















OEVOAO 


6# 


6 


399 


54^ 


547 


616 


621 


639 


645 


656 


699 


795 


908 


961 




14?2 


1414 


1431 


1638 


1887 


1937 


2034 


2070 


2105 


2110 


2118 


2145 


2148 


2178 




?589 


2833 


2917 


3018 


3025 


3050 


3076 
















DEVPPN 


6# 


6 


270* 


270 


924 




















OEVPTR 


6# 


6 


























OEVSER 


6# 


6 


356 


361 


3«9 


2523 


2529 


2530 


2562 


3020 


3039 








OFPUSY 


163 


169* 


383 


2845 


2889 


30t<4 


















nFCl«A 


10(S6 


1089* 


1109 


1133 






















nFCL16 


iaa4# 


1088 


























nFCU7 


1082 


1092# 


























nFHL? 


1(322 


1027 


1039 


104J# 






















oFCLje 


1068 


1097# 
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